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10. Reuse existing solid codebase 
from "Hello World" 

9. Think of what Dilbert would do 
(don't do it) 

8. Avoid the telephone, e-mail, 
and meetings (make an exception 
if donuts are involved) 

7. Start lacing your coffee with Jolt 

6. Stop waiting in line filling out 
surveys for free T-Shirts 

5. Convince your co-workers that it's 
a "feature", not a bug 

4. Take the QE department to Disneyland 

3. Never Install a beta product 

2. Clone yourself 



1. Buy Crescent Tools 



Try it FREE! Buy it FAST! 



Visit CODE DEPOT'"" today at crescent.progress.com 

or Call 800.352.2742 
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Introducing 
QuickPak VB/J++ 

QuickPak VB/J++ is the most comprehensive 
toolset of ActiveX components for developing 
applications using Microsoft Visual Basic® and/or 
Visual J++. Built on the foundation of QuickPak 
Professional, one of the top selling Visual Basic 
application development tools of all time, QuickPak 
VB/J++ harnesses the power of the latest advances 
in ActiveX component techniques to dramatically 
improve your productivity. 




Crescent 
Internet ToolPak- 



Get Internet Functionality Into 
Your Applications. 

Ride the hottest wave in application development 
- using the skills you have now. Award-winning 
Crescent Internet ToolPak helps VB developers 
gear up to discover the infinite possibilities of 
Internet-enabling applications. With Crescent 
Internet ToolPak you can easily create appUcatidns 
that access the vast resources of the Internet - 
without Internet protocol expertise or low-level 
coding. Right firom Visual Basic® 4.0 or 5.0. 

Crescent Internet ToolPak contains sixteen 

ActiveX controls, more than two dozen sample 
programs, and an Internet Mail Wizard to lead 
you step-by step through creating applications 
that exploit the Internet. 
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Welcome to the Fifth 
ition of the vmh^ 
CHNiCAL Tips Supplement! 

These tips and tricks were submitted by professional 
developers using Visual Basic 3.0, Visual Basic 4.0, 
Visual Basic 5.0, Visual Basic for Applications, and 
Visual Basic Script. The tips were compiled by the 
editors at Visual Basic Programmer's Journal. Instead 
of tjipingthe code published here, download the tips 
from the Registered Level of The Development Ex- 
_^^KUige at http://www.windx.com. 
i^^If you'd like to submit a tip to Visual Basic 
Programmer's Journal, please send it to User Tips, 
Fawcette Technical Publications, 209 Hamilton Av- 
enue, Palo Alto, California, USA, 94301-2500. You can 
|i also fax it to 415-853-0230 or send it electronically to 
^ vbpjedit@fawcette.com or 74774. 305@compu- 
if serve.com. Please include a clear explanation of what 
f the technique does and why it is useful, and indicate 
I if it's for VBA, VBS, VB3, VB4 16- or 32-bit, or VB5. 
I Please try to limit code length to 20 lines. Don't for- 
get to include your e-mail and mailing address. We'll 
^^^^^you $25 if we publish your tip. 



VB3,VB4 16/32 

Level: Intermediate 

Combo box Event Handling 

Two problems can arise when a confused user scrolls up or down 
with the mouse and then makes a selection with the Enter key. 
First, the down arrow fires two events: Change and Click. Sec- 
ond, the Enter key moves focus to the next tab stop, while the 
mouse click doesn't remove focus from the combo box. There- 
fore, if you place your action code in the Change event, an up or 
down arrow will fire It, which you don't want. On the contrary, if 
you place your action code only in the LostFocus event and the 
user clicks on a selection, focus won't move from the combo 
box, and theuser is left staring at the selected text in the combo 
box, wondering why no action occurred. 

This solution filters out Click events generated with arrow 
keys and forces the control to lose focus. In the Declarations 
section of the form, enter this code: 

' Note: Use an Integer flag variable in 
' VB3 

Dim bNoise as Boolean 

■ True denotes a Noise Event which is to 
' be ignored 

Filter this code in the Form_Load event: 

bNoise - False 



Enter this code In the combo box KeyDown event: 

Private Sub cbTest„KeyDown(KeyCode As _ 
Integer, Shift As Integer) 
' If the user is browsing with the 
' arrows, ignore the Click Events 
If KeyCode - vbKeyDown Or KeyCode _ 
- vbKeyUp Then bNoise - True 

End Sub 

Enter this code In the combo box Click event: 

Private Sub cbTest_Cl1ck( ) 
If bNoise Then 

' Ignore Noise events 
' {up or down arrow) 
bNoise = False 

Else 

' Force loss of focus 
SendKeys "(TAB)", True 
End If 
End Sub 

Write code that reacts to a new user selection in the combo 
box LostFocus event. Don't send a Tab keystroke because focus 
has already shifted, and the combo box's behavior is consistent 
regsirdless of how the user selects a new vedue. 

— Les Smith, Concord, Nortb CaroUoa 

VBS 

Level: Beginning 

COMMENT AND UNCOMMENT 

Blocks of Code 

Visual Basic 5.0 lets you comment a block of code in a snap and 
uncomment it later. This feature is useful in the debug phase, 
when you don't want to execute a number of statements, but 
don't want to physically delete them either. However, the Com- 
ment/Uncomment command pair isn't present in any menu of 
the environment, and you can only reach It by enabling the Edit 
toolbar. To do this quickly, right-click on any toolbar in the envi- 
ronment and select the Edit command. 

— Francesco Balena, Bari, Italy 

VBS 

Level: BeglnnlOf 

DON'T Create Aliased 

VARIABLES 

Never pass a global variable as an argument to a procedure that 
also accesses the variable directly. If you're 100 percent sure 
you adhered to this rule within your application, check the As- 
sume No Aliasing option in the Advanced Optimizations dialog 
that you Invoke from the Compile tab of the Project Properties 
dialog. If the native code compiler knows no aliased variables 
exist, it can freely cache variable values into faster CPU regis- 
ters, and store them back to RAM memory only when leaving 
the procedure. This improves the execution speed of compiled 
programs. 

— Francesco Balena, Bari, Italy 
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VB5 

Level: Beginning 



Performance Explorer (APE) included on your VB CD. 

— MicMel de Bniyn> Rotterdam, Ttm NeQierlands 



DEFAULT VALUES FOR OPTIONAL 
PARAMETERS 

If you ever programmed under VB4, you probably took advan- 
tage of the powerful Optional parameters. VB5 enhanced them 
in several ways: they can be of any type now (not only Variants), 
cuid can appear in Property procedures. Interestingly, you can 
now state a default value for theia; 

Property Get Value (Optional Index As Long I) 

End Property 

You Ccin do this without an explicit (and slower) IsMissing test: 

Property Get Value (Optional Index As Long) 
If IsMlssingdndex) Then Index - 1 

End Property 

—Francesco Balena, Bari, Itidy 



VB5 

Level: Beginning 

CENTER FORMS ON SCREEN 

A popular code snippet lets you center any form on the screen, 
regardless of the current screen resolution. You now can reach 
the same result by simply assigning the value vbStartUpScreen 
(=2) to the form's StcirtUpPosition new property. You Cctn even 
center a form within its parent window by assigning the 
vbStartUpOwner (=1) value. You can set this property from the 
Property window. 

When a form is supposed to be centered within its parent win- 
dow, remember to add a second argument to the Show method: 

FormZ.Show vbModal, Me 

— ^F^ancesco Balena, Bari, Italy 



YB5 

Level: Beginning 

don't auto^ptimize fcm fast 
Code 

If you take a look at VB's native code optimization options for 
the first time, you might be tempted to click on "Optimize for 
Fast Code" right away. Strange as it may sound, this does not 
always guarantee the best performance. Applications optimized 
for performance generally don't run much faster, but do have a 
larger memory footprint. This causes them to load slower, espe- 
cially on memory-constrained machines, giving the user the 
impression that your app is actually slower than one optimized 
for compact code. 

For the same reason, consider leaving your applications com- 
piled as p<ode. Especially for large, UI- and database-intensive ap- 
plications, the performance gain of compiling to native code won't 
outweigh the increase in application size. To determine exactly 
Which compilation option is right for you, use the VB Application 



VBA5 

Level: Beginning 

NOT All Templates are 
Created Equal 

Unlike templates in other Office 97 products. Word 97 templates 
provide a business^application engine that remcdns separate from 
the documents that use that engine. Template-based Excel work- 
books and PowerPoint presentations include a copy of that en- 
gine. In practice, all Word documents consist of two VBA projects: 
the first project is from the underlying template (all Word docu- 
ments are based on a template), and the second project belongs 
to the Word document itself. On the other hand. Excel work- 
books and PowerPoint presentations based on a template have 
only one VBA project. Every file contains its own copy of the 
project in the original template. Changes made to this copy don't 
affect the underlying template. 

In Ekcel, PowerPoint, and Access, add-ins provide code en- 
gines that remain separate from the workbooks and presenta- 
tions using those engines. To create cin Excel or PowerPoint add- 
in, use the Save As command on the File menu and save the file 
as a specific type: the "Add-in" type. Each product uses a spe- 
cific "Add-in" extension (XLA for Excel, PPA for PowerPoint, and 
MDA for Access). 

There's no canonical location for storing add-ins, but to load 
add-ins automaticcdly when you launch an Office product, store 
them in the XLStart folder or in the StctrtUp folder. You Ccm load 
add-ins memujilly with the Add-ins command on the Tools menu, 
or you can automate the process in code. 

To create an Access add-in, use the command "Make MDE 
file" available through the Databeise Utilities command on the 
Tools menu. 

— Christine Solomon, New York, New York 



VB5 

Level: Beginning 

Customize VB Toolbars 

Here are a few simple ways you can customize your VB5 IDE: 

• Add tabs to the custom control toolbox by right-clicking on the 
General button and selecting the Add Tab command. You can also 
move tabs around and delete them, cis well cis move control icons 
from one tab to the other by using the drag-^d-drop method. 

• Create toolbar buttons for any menu command by right-click- 
ing on any toolbar and selecting the Customize command. Move 
to the Commands tab, select the menu commeind in the right- 
most list box, and drag it onto the toolbar where you want to 
move it. Good ceindidates for this procedure cire the Project-Ref- 
erences, Project-Properties, and Tools-Add Procedure commands. 

• Create a brand new toolbar in the Toolbars tab of the Custom- 
ize dialog box. After you define a toolbar, add buttons using the 
procedure outlined above. When the Customize dialog box is 
active, right-click on cmy toolbar button to change its image, cre- 
ate a group divider, show/hide text, and more. 

— Francesco Balena, Bari, Italy 
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For even more tricks and tips go to 
http://www.windx.com 



VB5 

Level: Beginning 

HIDE All Project Windows 

When working with multiple projects, it's easy to get confused 
by the many windows active on the screen at the same time. 
However, you can temporarily hide all the windows related to a 
given project by simply collapsing the project item in the Project 
Explorer window. You can disable this feature in the General tab 
of the Tools-Options diedog box. 

—Francesco Baleiia, Barl, Italy 

VB5 

Level: Intermediate 

Friendly Enumerated Values 

If you build an ActiveX control that exposes cin enumerated prop- 
erty, you should define a Public Enum structure that gathers all 
the possible values for that property. Doing this helps the devel- 
oper using your control because the enumerated values will be 
listed in a combo box in the Property window. 

However, at first glance, it seems impossible to achieve the 
same behavior as most of VB's intrinsic controls, which expose 
enumerated properties with short descriptions and embedded 
spaces. Even if they're not documented in the language manu- 
als, you can create enumerated items that embed spaces by 
enclosing their names within square brackets: 

Public Enum DrawModeConstants 
Blackness - 1 
[Not Merge Pen] 
[Mask Not Pen] 
[Not Copy Pen] 

End Enum 

Then add a DrawModeConstants property to the ActiveX con- 
trol. All the enumerated values appear in the Property window of 
the VB IDE, without the square brackets and with edl the spaces 
you included. Use this technique to embed other forbidden char- 
acters, such as math or punctuation symbols. 

— ^Francesco Balena, Bail, Italy 

YB5 

Level: Advanced 

PROPERTIES THAT BEHAVE LIKE 

TEXT AND Caption 

If you build an ActiveX control that exposes a Text- or Caption- 
like property, even under different names, you should modify 
its attributes in the Procedure Attribute dialog box after expand- 
ing it by using the Advanced button. This way, the Procedure ID 
is set to Text or Caption, respectively. 

This causes your property to behave like standard Text or 
Caption properties. Wien the user modifies its value in the Prop- 
erty window, the effect of each new character is immediately 
reflected on the ActiveX control itself. 

— KWB«eaeo Bideraa^ Barl, Italy 



VB4 16/32, VB5 (Enterprise Edition) 

Level: Intermediate 

STANDALONE TYPE LIBRARIES 

If you create out-of-process OLE servers, Visual Basic embeds the 
companion type library into the EXE file and generates no TLB 
file. However, if you own the Enterprise Edition of VB4 or VB5, 
you can flag the Remote Server File check box to have Visual Ba- 
sic create a stcindalone type librciry. In VB5, you can find this op- 
tion in the Component tab of the Project-Properties dialog box. 

— ^Francesco Balena, Barl, Italy 

VB4 16/32, VB5 

Level: Advanced 

IMPLEMENTATION OF PUBUC FORM 
AND CLASS VARIABLES 

The implementation of Public variables in forms and classes 
changed with Visual Basic 5.0. VB4 implements public variables 

in forms and class modules as if they're regular variables, using 
pointers to data in memory. In VB5, public variables are more 
correctly implemented as a pair of hidden Get/Let property pro- 
cedures. This approach slows down these properties when the 
program is ported from VB4 to VB5. 

More important, if you have a VB4 program that passes such 
Public variables to a procedure using the ByRef keyword (or no 
keyword at cdl, which results in the variable being passed by 
reference) and that relies on the procedure to modify the value 
of this argument, this code won't work correctly when recompiled 
under VB5. In fact, under VB5, they're passed by value, and the 
origiucd property is never ciffected. For more information on this 
issue, see cirticle Q 166928 in the Microsoft Knowledge Base. 

— Francesco Balena, Barl, Italy 

VB5 

Level: Intermediate 

USE OBJECT Browser to 

DISCOVER UNDOCUMmim 

Features 

If you right-click on the right-most pane of the Object Browser, 
you can issue the Show Hidden Members command. From this 
point on, the Object Browser shows all hidden properties and 
methods in cmy library, and you c£m use it to explore edl object 
libraries in more detail. 

For instance, the VBA library exposes a hidden class, appro- 
priately named "_HiddenModule," which includes many well- 
known VBA functions plus three undocumented ones: ObjPtr, 
StrPtr, and VarPtr ObjPtr returns the address of the private area 
of an object instance, StrPtr returns the address of the first chcu'- 
acter in a string, and VarPtr returns the address of a VcUiable or 
a string descriptor, if you pciss it a string Vctfiable. 

— Francesco Balena, Bail, Italy 
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YB4 16/32 

Level: Advanced 

The Address OF A Variable 

VB5 includes a built-in VarPtr function (see tip "Use Object 
Browser to Discover Undocumented Features" on page 3), but 
this function isn't available in VB4. The VB4 runtime library does 
include this function, but you must declare it first: 

#If Winie Then 

Declare Function VarPtr Lib 

"VB40016.DLL" (variable As Any) As Long 

#Else 

Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) _ 

As Long 
#End If 

This function is useful when pcissing an externcd API routine 
a IVpe structure, and one of its fields is the addiess of another 
variable or record. 

— ^Francesco Balena, Bari, Italy 



VB416/32,VB5 

Level: Intermediate 

Cross midnight Benchmarks 

Traditionally, VB programmers benchmark their code using the 
Timer function. However, if your process might terminate on 
the following day, you must take into account that the value 
returned by that function is reset at midnight. If you're satis- 
fied with one-second precision, you can simplify your code 
using the Now function: 

Dim startTime As Date 

StartTlme - Now 

■ the code to be benchraarked 

Print "el apsedSeconds - " & Formats _ 
((Now - StartTime) * 86400. "«###") 

You need the Format$ function to round the result to the near- 
est Integer. 

— ^Francesco Balena, Bari, Italy 



VB5 

Level: Intermediate 

APP.PATH MIGHT RETURN UNC 
PATH SPECIFICATIONS 

Unlike VB4, VB5's App.Path property might return a UNC path, 
such a& "\\server\programs\...", depending on how the program 
started and if it's interpreted in the VB IDE or compiled as a 
standalone EXE. This change likely affects all applications that 
use App.Path to set the current directory when the progrcum starts: 

ChDrive App.Path 
ChDir App.Path 

In fact, because ChDrive cannot handle UNC paths, the code 
might reiise a fatal runtime error and should be protected using 
an On Error Resume Next statement. This fix, however, doesn't 



protect you under every possible condition. The best approach 
is to give the end user the capability to set the application direc- 
tory at nm time, then save the entered value in the registry or in 
an INI file. For more information on this problem and its possible 
solutions, see article Q167167 in the Microsoft Knowledge Base. 

— FramcesGO Balena, Bari, Italy 



VB4 16/32, YB5 

Level: Advanced 

MORE VERSATILE Array 

PARAMETERS 

You can write a single procediu'e that accepts any type of array 
as em argument by using a variant parameter. Mthin the proce- 
dure, address the array using the usual syntax: 

' return the number of items 
Function ItemCount(anArray As Variant) As Long 
ItemCount - UBoundCanArray) - LBound(anArray ) + 1 
' the first element is anArray(LBound(anArray)) 
End Function 

You can even pass a matrix with any number of dimensions; 
in order to imderstand how many dimensions, you must iterate 
on the UBound or LBound functions until an error occurs: 

Function ItemCounKanArray As Variant) As Long 
Dim Items As Long, 1 As Integer 
On Error Resume Next 

items - UBound(anArray ) - LBound(anArray ) + 1 
For 1 - 2 to 999 

Items = Items * (UBound(anArray , _ 
1) - LBound(anArray, 1) + 1) 

If Err Then Exit For 

Next 

ItemCount - Items 
End Function 

— Francesco Balena, Bari, Italy 



VB4 16/32, VB5 

Level: Intermediate 

COMPACT YOUR CODE USING IlF 

AND Switch 

You Ccm often replace an If.. .Then.. .Else block with a more com- 
pact nf function: 

■ returns the max of two values 

maxValue - IIf(first >- second, first, second) 

Switch is a rarely used function, yet it Ccm prove rather use- 
ful as a substitute for a lengthy If...Elself block: 

' is "x" negative, positive or null? 
Print SwitchCx < 0, "negative", x > 0. _ 
"positive". True. "Null") 

Note the Icist test is True, because the three conditions are 

— Francesco Balena, Bari, Italy 
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VB5 

Level: Advanced 

combine default with other 
Attributes 

When building an ActiveX control, you CcUi set a default prop- 
erty or method using the Procedure Attributes dialog box, after 
clicking on the Advanced button. However, if your default prop- 
erty also happens to require another special attribute — as is the 
case with Caption and Text properties — you're in trouble be- 
cause the Procedure ID combo box only permits one selection. 

Suppose your ActiveX control exposes a Caption property 
you want to behave as a regular property. For example, all keys 
typed in the Property window are immediately reflected in the 
control itself. In order to achieve this behavior, assign the Cap- 
tion attribute to this property in the Procedure ID combo box 
(see tip "Properties That Behave Like Text and Caption" on page 
3). If you also want to make it the default property, you must 
resort to a trick: declare another, hidden property that delegates 
to your Caption property, and set this new property as the de- 
fault member of the ActiveX control. The name of this property 
is not important because the user never sees it: 

Property Get Def aul tProp( ) As String 

DefaultProp - Caption 
End Property 

Property Let Def aul tPropCnewVal ue As String) 

Caption - newValue 
End Property 

— Francesco Bal«ia, Bail, Italy 



VB3,YB416/32,VB5 

Level: Beginning 

Speed Up your Code Using 
Choose 

You can often use Choose to replace an array and build tables of 
results evaluated at compile-time instead of run time. For in- 
stance, If you need to evaluate the factorial of a number in the 
range 1 to 10, try this function: 

Function Factorial (number As Integer) As Long 
Factorial - ChooseCnumber, 1. 2. 6, 24. 120, 720, 5040, 

40320. 362880. 3628800) 
End Function 

— Francesco Balena, Bari, Italy 



VB5 

Level: Intermediate 

GoSuBs Are Slow in Compiled 
Programs 

Because GoSubs make for less structured programming, many 
progrcunmers avoid them. If you compile your VB5 applications 
to native code, you have one more reetson to stay away from 
them because, curiously enough, GoSubs calls happen to be about 
five times slower than calls to a regular procedure or function. 

— ^Fksncesco Balena, Bari, Italy 



VB5 

Level: Intermediate 

"Array" IS NOT A Vaud 

VARIABLE NAME ANYMORE 

If you've often used the "array" name for variables, you must 
revise your code when porting your applications to Visual Basic 

5.0. This name has become a reserved keyword and cannot be 
used for variables. You can easily revise your code with the Re- 
place command in the VB5 IDE— remember to check the "Find 

whole words only" option. 

— Francesco Balena, Bari, Italy 



VB4 1 6/32, VB5 Enterprise Edition 

Level: Advanced 

RUN Automation Manager as a 
Hidden Task 

if you use OLE Remote Automation, you must start the Automa- 
tion Manager on the server computer before any OLE remote 

communication occurs. By default, this application is visible, 
but you can hide it so it doesn't appear on the taskbar. To achieve 
this, change the shortcut to the Automation Manager so it in- 
cludes the /Hidden switch: 

C:\Windows\System\AutMgr32. Exe /Hi dden 

Alternatively, you Ccm chemge the vcdue of a key in the regis- 
try. For more information, see article Q138067 in the Microsoft 
Knowledge Bctse. 

— Francesco Balena, Bari, Rdy 



VB4 16/32,VB5 

Level: Advanced 

PROBLEMS WITH Popup MENUS 

If you use popup menus in your applications, you should be aware 
of a bug present in VB4 16/32 cind VB5. If you have two forms £md 
the first one shows the second form modaliy from within a popup 
menu, the second form can't show any popup menu. 

To flx this bug, use a timer on the first form. Instead of show- 
ing the second form from within the popup menu's Click event, 
activate the timer so it shows the second modal form after some 
milliseconds. For more information on this bug and its 
workaround, see article Q167839 in the Microsoft Knowledge Base. 

— ^Fhmcesco Balena, Bari, Italy 
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YB5 

Level: Advanced 

CONSTITUENT CONTROLS ARE 
PRIVATE TO USERCONTROL 
MODULES 

You Cctnnot directly access constituent controls on a UserControl 
component from another module of the same project. Constitu- 
ent controls behave differently from controls on forms, which 
you can access from any other module using the familiar 
"Form 1. Text 1" syntax. If you need to work around this limita- 
tion, have each UserControl component expose its controls us- 
ing a Friend property. 

For instance, if the UserControU module needs to expose one 
of Its constituent controls, add this property procedure: 

Friend Property Get TextControl ( ) As TextBox 

Set TextControl - Textl 
End Property 

When you wish to modify the Text property of the control of 
a particular instance of UserControl! in the BAS module, write 
something like Uiis: 

Sub ClearText(uc As UserControl!) 

uc. TextControl .Text - "" 
End Sub 

— MaFCp Losavio, Gioia del Colle, Italy 



VB416/32,VB5 

Level: Intermediate 

USE A COLLECTION TO FILTER 
Out DUPLICATE VALUES 

This code illustrates how to use a Collection to automatically 
generate a unique set of values from a set of data conteuning 
duplicates. In this excunple, scan a string ctrray and sort all unique 
items using a list-box control: 

Sub Remove_Dup11cates(arr() As String) 
Dim i As Long 
Dim RawData As String 
Dim DataValues As New Collection. 

On Error Resume Next 

' Specifically to ignore run-t1me 

• error 457 - Duplicate key 

For 1 - LBound(arr) To UBound(arr) 

RawData - arrd ) 

DataVal ues .Add RawData, RawData 

' If Run-time error 457 occurs, 

■ Duplicate key Is Ignored 

Next 

On Error GoTo 

' Store in List Box 
' (with Sorted property set to True) 
1 stSortedOata . 01 ear 
For Each DataVal ue In DataValues 
IstSortedData.Addltem DataVal ue 



Next 
End Sub 

— J.G. Hu88ey, Fareham, Hampshire, En^and 



VB3 

Level: Intermediate 

create "remotely 
Controllable" Forms 

Sometimes I need to control a VB form while focus is on another 
one. For example, 1 Wcmt form B to be resized when 1 press the 
"OK" button on form A. In every form that must be "remote con- 
trollable," I include an invisible text box, such as TextCommand, 
with the Change procedure containing code like this: 

Sub TextCommand_Change () 
Dim msg as string 
msg - Trim$(Me. TextCommand. Text) 
If Len(msg) - Then Exit Sub 

Select Case msg 

ease "COMMAND_RESIZE" 

Call MyFormResize 
Case "COMMAND_REPAINT" 

Call MyFormPaint 

End Select 

Me. TextCommand - "" 

End Sub 

You can remotely control this form by sending the appropri- 
ate value to its TextCommitnd fljel± 

Sub Commandl_Cl i ck () 

formB. TextCommand - "COMMAND.RESIZE" 
DoEvents 

End Sub 

Use this code to send messages from an MDI form to its child: 

Dim f As Form 

Set f - Me.ActiveForm 

f .TextCommand - "COMMAND_RESIZE" 

If you progrcim under VB4 or VB5, you might wish to use Pub- 
lic form properties and methods instead. 

— ^Alex Klikouchin, Toronto, Ontario, Canada 



VB4 16/32, VB5 

Level: Intermediate 

Save form position and Size 
Using SaveSetting 

SaveSetting and GetSetting make writing application settings a 
breeze. These two utility functions retrieve and store the cur- 
rent forms position: 

Public Sub FormPosition_Get(F As Form) 

■ Retrieve Form F's position from an 

' ini/reg file and position it accordingly 

Dim buf As String 

Dim 1 As Integer, t As Integer 

Dim h As Integer, w As Integer 
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Dim pos As Integer 

buf - GetSettingCapp.EXEName, _ 

"FormPosi ti on" . F.Tag, "") 
If buf - "" Then 

' defaults to centering the form 

F.Move (Screen. Width - F. Width) \ _ 
2, (Screen. Height - F. Height) \ 2 

Else 

' extract l.t.w.h and move the form 

pos - InStr(buf, ".") 

1 - CInt(Left(buf , pos - 1)) . 

buf - Mid(buf, pos + 1) 

pos - InStr(buf. ".") 

t - CInt(Left(buf . pos - 1)) 

buf - M1d(buf, pos + 1) 

pos - InStr(buf, ".") 

w - CInt(Left(buf . pos - 1)) 

h - CInt(M1d(buf, pos + 1)) 

F.Move 1 , t, w, h 
End, If 
End Sub 

Public Sub FormPos1t1on_Put(F As Form) 
' Write form F's top, left, height and 
■ width properties to the reg/ini file 
' for the application 
Dim buf As String 

buf - F.left & & F.top & "," & _ 

F. Width & "." & F. Height 
SaveSetting app. EXEName ,„ 

"FornPositlon", F.Tag, buf 
End Sub 

You should place these routines in a module and call them 
from the forms' Load and Unload events. You must place the 
name of the form in its Tag property for these utilities to work: 

Sub Form_Load() 

FortnPosition_Get Me 
End Sub 

Sub Form_Unload( ) 

FormPos1t1on_Put Me 
End Sub 

— ^Rob Parsons, Dee Why Beach, Australia 



VB416/32,VB5 

Level; Beginning 

PUT VB INTRINSIC CONSTANTS TO 
GOOD USE 

I've seen several tips using numeric values instead of the corre- 
sponding Visual Basic constants. Always use the Visual Basic 
predefined constants. For example, you can set up a message 

box using numeric constants: 

re - MsgBox(msg, 4 + 32 + 256, "Confirm Delete") 

But isn't this easier to read? 

rc - MsgBoxCmsg, vbYesNo + vbQuestlon _ 
+ vbDefaultButton2. 
"Confirm Delete") 



VbUnchecked -0 

VbChecked =1 
VbGrayed -2 

Also, use the string constants instead of the corresponding 
chr$(ASCII value): 

vbTab instead of Chr$(9) 
vbCr instead of Chr$(13) 
vbLf instead of Chr$(10) 
vbCrLf instead of Chr$(13)+Chr$(10) 

— ^Pedro Prospero Luis, Odivelas, Portugal 



VB3,YB4 16/32, VB5 

Level: Intermediate 

TEST FOR "FtLE Exist" the 
Right Way 

Dir$ raiises a runtime error if you supply it an invalid drive. For 
example, Dir$ C'd:\win\lumems.sys") crashes if drive d: doesn't 
exist. To check if a file eidsts, add an error handler: 

Function FileExist (filename As String) _ 
As Boolean 

On Error Resume Next 

FileExist - D1r$(fnename) <> 

If Err. Number <> Then FileExist _ 

- False 
On Error SoTo 
End Function 

— ^Pedro Praqtero Lois, OdiveUw, Portugal 



VB416/32,VB5 

Level: Intermediate 

Procedures that Act on a 
Group of Controls 

You can use the almost-forgotten ability of Visual Basic to have 
a function or sub with an undetermined number of arguments 
that do something to a set of controls. For excunple, you can 
enable/disable many controls with one sub call: 

EnableAU True, Textl. Text2, _ 
Commandl, Command2 

This procedure iterates on till the controls passed cis argu- 
ments: 

Sub Enabl eAl 1 (Enabl ed As Boolean, 
ParamArray objs() As Variant) 
Dim obj As Variant 
For Each obj In objs 

obj. Enabled - Enabled 
Next obj 

End Sub 

— ^Pedro Prospero Luis, Odivelas, Portugal 



Use these constants for the value of a check box: 



Supplement to Visual Basic Programmer's Journal AUGUST 1997 7 




VB3,VB416/32,V65 

Level: Intermediate 

BETimR SCROLUNG IMAGES 

I enj oyed Joel Paula's "Scrollable Viewport for a Picture" tip [" 1 1 
Tech Tips for VB Developers," Supplement to the Febru£u-y 1997 
issue of VBPJ, page 12], and I'd like to add some improvements 
to it. First, make the scrollbar's Scroll event update the picture 
position so it moves while you dreig the scroll box. Second, de- 
clare these form-level variables: 

Dim StartX As Long, StartY As Long 
Dtm Moving As ioelean 

Finally, declare these three events for PicPicture: 

Private Sub Pi cPi cture_MouseDown_ 
(Button As Integer, Shift As _ 
Integer, x As Single, y As Single) 

StartX - X 

StartY - y 

Moving - True 

End Sub 

Private Sub Pi cPi cture_MouseMove_ 
(Button As Integer, Shift As _ 
Integer, x As Single, y As Single) 
If Moving Then 

PicPicture. Move _ 

PicPi cture. Left + x - _ 
StartX. PicPicture. Top +_ 
y - StartY 

End If 

End Sub 

Private Sub PicP1cture_MouseUp_ 
(Button As Integer, Shift As _ 
Integer, x As Single, y As Single) 
Moving - False 

End Sub 

Now you can scroll the image with your mouse. Don't forget 
to test for the borders of the image. 

— Pedro Prospero Luis, Odivelas, Portugal 

VB3,VB4 16/32, VB5 

Level: Intermediate 

Encrypted passwords 

These two smdl, simple, and effective functions easily encrypt/ 
decrypt a text password. The functions tcike two pau-ameters: a 
number in the range of 1 to 10 used to alternatively shift up or 
down the ASCII character by that amoimt, and the actual Pass- 
word string. 

The EncryptPassword function loops though each character 
of the DecryptedPassword, checks if its position is odd or even, 
and shifts the character up or down according to the Number 
parameter This makes the encrypted string unreadable. The 
encrypted password is then scrambled once again using the XOR 
operator, which makes it even more unreadable. 

I chose a limit of Number to be 10, so I don't have to check 
for invalid ASCII values. The DecryptPassword Function reverses 
the encryption process by first applying the XOR operator and 
then shifting: 



Function EncryptPasswordCNumber As _ 

Byte, DecryptedPassword As String) 
Dim Password As String, Counter As Byte 
Dim Temp As Integer 

Counter - 1 

Do Unti 1 Counter - 

Len(DecryptedPassword) + 1 

Temp = Asc(Mid(DecryptedPassword, _ 

Counter, 1)) 
If Counter Mod 2 - Then 
'see if even 
Temp - Temp - Number 

El se 

Temp - Temp + Number 

End If 

Temp - Temp Xor (10 - Number) 
Password - Password & Chr$(Temp) 
Counter - Counter + 1 

Loop 

EncryptPassword - Passw&rd 
End Function 

Function DecryptPassword(Number As _ 

Byte, EncryptedPassword As String) 
Dim Password As String, Counter As Byte 
Dim Temp As Integer 

Counter - 1 

Do Until Counter - _ 

Len( EncryptedPassword) + 1 
Temp - Asc(Mid(EncryptedPassword, _ 
Counter, 1)) Xor (10 - Number) 
If Counter Mod 2-0 Then 
'see if even 

Temp - Temp + Humber 

Else 

Temp - Teiiip - Number 

End If 

Password - Password & ChrKTemp) 

Counter - Counter + 1 

Loop 

DecryptPassword - Password 
End Function 

— Jeff Bogusz, received by e-mail 

VB416/32,VB5 

Level: Intermediate 

Fixing a Proper Case Tip 

If you use the left arrow key to go back to the beginning of a 
word and then enter a letter, you get two uppercase letters. Use 
this code, which takes advantage of the built-in VB4/VB5 
StrConvO function, to automatically capitalize words upon en- 
tering: 



Private Sub Textl_Change( ) 
If Textl.Tag - "" Then 

Textl.Tag - Textl . Sel Start 
Textl.Text - StrConv(Textl .Text, 
Textl. SelStart - Textl.Tag 
Textl.Tag - "" 
End If 



vbPropierCase) 



End Sub 



— Tim McBride, Redmond, Washington 
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VB4 32, YB5 

Level: Intermediate 

Trapping a Double Cuck for a 
Toolbar Button 

VB4 supports the built-in Win95 Toolbar control, which allows 
users to add Buttons to the toolbar. The button hcis a ButtonClick 
event, but if you want to trap a double-click, there is no 
ButtonDoubleClick event. To work around this problem, declare 
two form-level variables: 

Private mbSingleClicked As Boolean 
Private mbDoubleCllcked As Boolean 

In the Toolbars ButtonClick event, add this code: 

Private Sub ToolbaplJuttonCl 1clc_ 

(SyVa1 Button As Button) 
Dim t As Single 
t - Timer 

If mbSingleClicked - True Then 
mbDoubleCllcked - True 
MsgBox "Double Clicked" 

Else 

mbSingleClicked - True 

' allow the user to click the next 

' time if he wants to double click 

Do While Timer - t < 1 And mbSingleClicked - True 

DoEvents 

Loop 

' if the user has selected a double 

' click end the sub. 

If mbDoubleCllcked - True Then 

mbSingleClicked - False 

mbDoubleCllcked - False 

Exit Sub 
End If 
End If 

If mbDoubleCllcked - False Then 

MsgBox "Single Clicked" 
End If 

'you can do the processings here, e.g 
'If mbDoubleCllcked Then 
' code 

'Elself mbSingleClicked Then 

• code 

•End If 

'when exiting from the sub please 
're1nt1al1ze the variables, otherwise we 
'will end up with the single cl1cl(s only 
If mbDoubleCllcked - False Then 

mbSingleClicked - False 

mbDoubleCllcked - False 
End If 
End Sub 

— Sushrut Nawathe, Pune, India 



VB3,VB4 16/32, VB5 

Level: Intermediate 

USED BYTES IN A DIRECTORY 

This function returns the number of bytes used on the direc- 
tory: 

Function DIrUsedBytesCByVal dIrName As _ 

String) As Long 
Dim FIleName As String 
Dim FlleSIze As Currency 

' add a backslash If not there 
If Right$(d1rName, 1) <> "\" Then 
dirName -> dIrName & "V 

Endif 

FileSize - 

FileNarae - Dir$(dirName & "*.*") 

Do While FileName <> "" 

FileSize - FileSize + _ 

Fi 1 eLen(di rName & FileName) 
Fi 1 eName - D1 r$ 

Loop 

DIrUsedBytes - FileSize 
End Function 

You can call the function passing the ncime of a directory: 

HsgBox DIrUsedBytesC'C: \Windows" ) 

— Isaias Martinez, Equifisa, Venezuela 

VB4 32, VB5 

Level: Advanced 

Get useful Disk Information 

This function returns the hard disk free bytes, total bytes, per- 
centage of free bytes, and used space. Before calling the func- 
tion, set the first field of the DISKSPACEINFO structure 
("RootPath") to the drive letter: 

Dim dsi As DISKSPACEINFO 
dsi .RootPath = "C:\" 
GetDiskSpace dsi 

The function returns all its results in the other field of the 

record: 

' *** Declaratiosn Section ****** 
Declare Function GetDiskFreeSpace Lib _ 

"kernel32" Alias 

"GetDi skPreeSpaceA" 

(ByVal 1 pRootPathName As String, _ 

1 pSectorsPerCl uster As Long, _ 

1 pBytesPerSector As Long, _ 

1 pNumberOf FreeCl usters As Long, _ 

1 pTotal NumberOf CI usters As Long) _ 

As Long 

Type DISKSPACEINFO 

RootPath As String * 3 
FreeBytes As Long 
Total Bytes As Long 
FreePcnt As Single 
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UsedPcnt As Single 
End Type 

• ****** Code Module ****** 
Function GetDiskSpace(CurD1sk As _ 

DISKSPACEINFO) 

Dim X As Long 

Dim SxC As Long. BxS As Long 
Dim NOFC As Long, TNOC As Long 

X& - GetDi skFreeSpace_ 

(CurDisk.RootPath. SxC, BxS, _ 

NOFC. TNOC) 
GetOiskSpace - X& 

If X& Then 

CurOlsk. FreeBytes - BxS * _ 

SxC * NOFC 
CurDisk.TotalBytes - BxS * _ 

SxC * TNOC 
CurDisk.FreePcnt =• ((CurD1sk._ 

TotalBytes CurDisk._ 

FreeBytes) / CurD1sk._ 

TotalBytes) * 100 
CurDlsk. UsedPcnt - 

(CurDlsk. FreeBytes / _ 

CurDisk.TotalBytes) * 100 

Else 

CurDi sk. FreeBytes - 
CurDisk.TotalBytes - 
CurDisk.FreePcnt - 
CurDlsk. UsedPcnt - 
End If 
End Function 

As is, this routine works with drives with a capacity of 2GB 
or less; for larger disks, you should use Single variables instead. 

— ^Isaias Martinez, Equiflsa, Venezuela 



VB4 32, VB5 

Level: Advanced 

Simulate Pressed Control key 
FOR Multiple Selections in List 
Box 

When selecting items in a normal list box with the MultiSelect 
property set to 1 - Simple or 2 - Extended, the user needs to 
press the Control key while clicking on the items in order to 
continuously select multiple items without also deselecting the 
items currently selected. This method lets the user select mul- 
tiple items continuously without pressing the Control key. Place 
this code in a module: 

Declare Function GetKeyboardState Lib _ 
••user32" (pbKeyState As Byte) _ 
As Long 

Declare Function SetKeyboardState Lib _ 
"user32" (IppbKeyState As Byte) _ 

As Long 

Public Const VK^CONTROL - &H11 
Public KeyState(256) As Byte 

Place this code in the MousdDown event procedure in a list 
box OLlstl) with MultiSelect property set as either Simple or 



Extended: 

• Sets the control key state to 
' "pressed" 

GetKeyboardState KeyState(O) 
KeyState(VK_CONTROL) - _ 

KeyState(VK_CONTROL) Or &H80 
SetKeyboardState KeyState(O) 

Place this code in any procedure where the pressed Control 
key is to be released, such as the Listl_LostFocus event proce- 
dure: 

' release the control key state from 
' "pressed" 

GetKeyboardState KeyState(O) 
KeyState(VK_CONTROL) - _ 

KeyState(VK_CONTROL) And &H7F 
SetKeyboardState KeyState(O) 

— Shangzhi Rea, Omaha, Nebraska 



VB3,VB416/32,VB5 

Level: Intermediate 

Get All Matching Files in a 
Directory Structure 

Because this code doesn't use an API, you can easily port it be- 
tween 16- and 32- bit applications. The DirWalk procedure lets 
you search an entire directory structure starting at whatever 
you specify as the argument: 

ReDim sArray(O) As String 

Call DirWalk("OLE*.DLL", "C:\", sArray) 

The procedure accepts wildccirds in the first etrgument, which 
is the search pattern for file names. You can even specify mul- 
tiple secu-ch patterns using the semicolon as a separator, as in 
"OLE*. DLL; *.TLB." The second argument is the location of where 
to start, and the third argument is an array of strings. 

The procedure recursively goes to the deepest level in the 
directory structure and gets all the matching file names with full 
path in the array sArray. This array is ReDimed from the func- 
tion and has as many members as matches found. 

To use DirWalk, put two extra controls, FileListBox and 
DirListBox, on the form. This procedure assumes it's on a form 
on which there are two controls: FileListBox with name Filel, 
and DirListBox with name Dirl. Keep the controls invisible to 
improve the speed of the search. Putting these additional con- 
trols on a form doesn't cause ciny overtiead because they're part 
of a basic library of controls for VB: 

Sub DIrWalkCByVal sPattern As String, _ 

ByVal CurrDIr As String, sFoundO _ 

As String) 
Dim 1 As Integer 
Dim sCurrPath As String 
Dim sFlle As String 
Dim ii As Integer 
Dim i Files As Integer 
Dim i Len As Integer 

If RlghtKCurrDir. 1) <> "\" Then 
Dirl. Path - CurrDIr & "\" 

Else 
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Dipl. Path - CurrDIr 
End If 

For i - To Dlrl.ListCount 
If D1rl.L1st(1) <> ■■" Then 
DoEvents 

Call DirWalk(sPattern, _ 
D1rl.L1st{1), sFoundO) 

Else 

If R1ght$(D1rl.Path, 1) - "\" _ 
Then 

sCurrPath - LeftCDIrl.Path. _ 
Len(Dirl.Path) - 1) 

Else 

sCurrPath - Dirl.Path 
End If 

Filel.Path - sCurrPath 
Fi lei. Pattern - sPattern 
If FIlel.LlstCount > Then 

'matching files found 1n the 

'directory 

For 11 - To F11el._ 
LIstCount - 1 
ReDim Preserve _ 

sFoundCUBouncKsFound) _ 
+ 1) 

sFound(UBound(sFound) - _ 
1) - SCurrPath & 
"\" & Filel.Listdi ) 

Next ii 
End If 

I'Len - Len(Dirl.Path) 

Do While Mid(Oi rl . Path , iLen, _ 

1) <> "\" 

i Len - i Len - 1 

Loop 

Dirl.Path - Mid(Di rl . Path. 1. _ 
1 Len) 

End If 
Next 1 
End Sub 

— Atul Ganatra, Omaha, Nebrad^a 



VB4 32, VB5 

Level: Advanced 

Current Computer Name on 
windows 95/nt 

You often want to know the ncune of tfie current computer run- 
ning Wln95 or Wndows NT in your VB program. Use this simple 
wrapper function of a kemel32.dU API function to do the job: 

Private Declare Function GetComputerNameA Lib "kernel32"_ 
(ByVal IpBuffer As String, nSize _ 
As Long) As Long 

Public Function GetMachineNameC ) As String 
Dim sBuffer As String * 255 
If GetComputerNameA(sBuffer, 255&) 
<> Then 

GetMachineName - Left$(sBuffer, 

InStrCsBuffer. vbNuTlChar) - 1) 

Else 

GetMachineName - "(Not Known)" 
End If 
End Function 

— Jeff Hong Yan, Elmhurst, New York 



VB3,VB416/32,VB5 

Level: Intermediate 

Show FONTS AS You 
Select Them 

To let a user change a font name, load all the fonts into a combo 

box: 

Private Sub Form_Load( ) 

' Determine the number of screen 
■ fonts. 

For I - To Screen . FontCount - 1 
' Put each font into list box. 
cboFont.Addlten Screen. Fonts( I) 
Next I 
End Sub 

Make this more useful by letting your users see what the font 
looks like immediately cifter selecting it without having to "test" 
it by typing something: 

Private Sub cboFont_Cl i ck( ) 

'Set the FontName of the combo box 

'to the font that was selected. 

cboFont. FontName - cboFont.Text 
End Sub 

— ^Brian Lang, St. Cloud, Minnesota 



VB416/32,VB5 

Level: Intermediate 

NEW Shortcuts for the 
VB Environment 

In VB5, pressing Ctrl-F3 when the cursor is over a word auto- 
matically searches to the next occurrence of that word, byp>ass- 
ing the search dialog. You need to be past the first character of 
the word for it to work properly. 

Another shortcut is that VB4/5 Ctrl-Tab cycles through all 
your open windows in the IDE often quicker than going to the 
Window menu. 

— ^11m Jones, Casllemaine, ^ctoria, Australia 



VB3,VB4 16/32, VB5 

Level: Intermediate 

SWAP Two Integer Variables 

Use this algorithm to swap two integer variables: 

a - a Xor b 
b - a Xor b 
a - a Xor b 

— ^Al^ Bootman, Foster City, California 
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VB4 32,VB5 

Level: Intermediate 

Trap RiGHT-CiJ€Ks on 
TreeView's Nodes 

The Tree\^ew control gives your apps a good Windows 95 look 
and feel. However, the VB manual doesn't explain how to trap 
the right mouse button in a node. The Treeview_MouseDown 
event occurs before the NodeClick event. In order to display 
context menus over a node, use this code and define the Key for 
each node with a letter followed by a number: 

+ Root (ROD 'the letter gives 

|- Child 1 (COD 'the indication to 
j— I- Child 2 (C02) 'the context menu 
I |- Child 2.1 (HOD 
I |- Child 2.2 (H02) 

Dim bRi ghtMouseDown as Boolean 

Private Sub Form_Load() 

bRi ghtMouseDown - False 
End Sub 

Private Sub treev1ewl_MouseDown_ 
(Button As Integer, Shift As _ 
Intejer, X As Single, Y As Single) 
If Button And vbRlghtButton Then 
bRi ghtMouseDown - True 

Else 

bRi ghtMouseDown - False 
End If 
End Sub 

Private Sub treev1ewl_MouseUp_ 

(Button As Integer, Shift As _ 
Integer, X As Single, Y As Single) 
bRi ghtMouseDown - False 

End Sub 

Private Sub treeviewl_NodeC11ck_ 
(ByVal Node As Node) 
Select Case Left(Node.Key , 1) 
Case "R" 

if Not bRi ghtMouseDown Then 

'do the normal node click, 
'so you must here the code 
'for the node code click 

Else 

'select the node 

treevi ewl . Nodes ( Node . Key ) . Sel ected _ 

- True 

'show the popup menu 
PopupMenu mnuContextl 

End If 

Case "C" 

If N&t bRi ghtMouseDown Then 
'do the normal node click, 
'so you must here the code 
•for the node code click 

El se 

'select the node 

treevi ewl . Nodes ( Node . Key ) . Sel ected _ 

— True 

'show the popup menu 
PopupMenu mnuContextZ 



End If 

' and so on with all other nodes 

End Select 
End Sub 

— Victor Raposo, Coimbra, Portugal 



VB3,VB416/32,VB5 

Level: Mermediate 

run vb using the 
SendTo Menu 

Adding a "Shortcut to VB.exe" and "Shortcut to VB32.exe" to 
your "Send To" menu lets you right-click on any VBP project and 
open it with your choice of VB4 16/32 or VB5. 

Go to your VB directory, right-click on VB32.exe, cuid choose 
"Create shortcut." When the shortcut file is created, move it into 
the C:\Windows\Sendto directory — it will be there next time you 
use it. You might want to add one for WordPad, Word, Excel, or 
any program that takes an input parameter. 

— ^Warren K. Egger, Houston, Texas 



VB4 32, VB5 

Level: Intermediate 

GETTING USERID ON WINDOWS 95 
AND NT 

When you want to get the user ID of the current user on the 
machine running Windows 95 or Windows NT, use this simple 
wrapper function of an API function to do the job: 

Option Explicit 

Private Declare Function WNetGetUserA _ 
Lib "mpr" (ByVal IpName As String. _ 
ByVal IpUserName As String, _ 
IpnLength As Long) As Long 

Function GetUser() As String 

Dim sUserNameBuf f As String * 255 
sUserNameBuff = Space(265) 
Call WNetGetUserA(vbNullStr1ng, 

SUserNameBuff, 2558.) 
GetUser - Left$(sUserNameBuff , 
InStr(sUserNameBuf f , _ 
vbNullChar) - 1) 
End Function 

— Jeff Hong Yan, Elmhurst, New Yoi^ 



VB4 32, VB5 

Level: Advanced 

Show AN HOURGLASS When 
Processing Data 

Have you ever forgotten to add code to set the MousePointer 
back to its default at the end of a procedure or function? This 
technique simplifies showing and resetting the MousePointer 
without adding code to the end of a procedure or function. 
When you create an object from a class, the Initialize event Is 
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generated. Any code In the event procedure for that event then 
executes. This Is the first code to execute for the object, before 
you set any properties or invoke any methods. When the vari- 
able goes out of scope, all references to the object are released, 
the Terminate event is generated for the object, and £iny code in 
the Terminate event procedure for that object is executed: 

Declare Sub Sleep Lib "kernel32" 
(ByVal dwMi 1 1 i seconds As Long) 

' this is an example of a procedure that 
' uses the CHourGlass class 
Private Sub ProcessDataC ) 

Dim MyHourGlass As CHourGlass 

Set MyHourGlass - New CHourGlass 

'Add processing code here 

Sleep 5000 'This simulates the 

'processing of data 

'Resume processing code here 
End Sub 

'Create a CHourGlass class with tfie 
'following code: 
Private Sub Class_Initial1ze() 
'Show HourGlass 

Screen. HousePointer - vbHourglass 
End Sub 

Private Sub CI ass_Teriiiinate( ) 

•Restore HousePointer 

Screen. HousePointer - vbDefault 
End Sub 

— Knit D. Crockett, Denver, Colorado 



VB4 16/32, VB5 

Level: Beginning 

Evaluating Elapsed Minutes 

You might need to keep track of the toted minutes between one 
date or time cind another. To get the total minutes, use a line like 
this: 

ITotalMinutes - Mlnutes(Now) - _ 
Minutes(datStartTiiiie) 

This function returns the number of minutes since 01/01/1900: 

Public Function Hinutes(d As Date) _ 
As Long 

'Minutes since 1900 

Dim IPreviousDays As Long 

Dim ITotalMinutes As Long 

IPreviousDays - d - #1/1/1900* 
ITotalMinutes - _ 

(IPreviousDays * 24) * 60 
ITotalMinutes - ITotalMinutes +_ 

Hour(d) * 60 
ITotalMinutes - ITotalMinutes + _ 

Minute(d) 

Minutes - ITotalMinutes 
End Function 

— Orvllle P. Chomer, Berwyn, Illinois 



VB3,VB4 16/32, YB5 

Level: Beginning 

PLEASE STOP I^NTING! 

Sometimes 1 want to print data from a recordset to a report, read- 
ing cmd printing eacfi record. However, it's hard to interrupt that 
process before it sends all recordsets to the printer queue. Use 
a Ccincel button associated to a flag. Besides the button that 
starts the printing, create another one named Cancel. You can 
also set its Cancel property to True, so the user can stop print- 
ing by pressing the Esc key. Add a variable in a module: 

Dim Cancel Now As Integer 

Put this code in the Click event of the Cancel button: 

Sub cCance1_Click () 

Cancel Now - -1 

DoEvents 
End Sub 

You might even do without the button and simply Intercept 
the Escape key. In this case, set the form's KeyPrevlew property 
to True and Insert this code: 

Sub Form_KeyPress (KeyAscii As Integer) 
'if user presses ESC 
If KeyAscii - (27) Then 

Cancel Now 1 

DoEvents 
End If 
End sub 

Finally, add a test for the flag Inside the printing loop: 

"... some code. . . 

'printing a database recordset 

Do While Not MyRecordSet.EOF 

Printer. Print MyRecordSetlSomeRecord 

MyRecordSet .MoveNext 

DoEvents 

'stop if Cancel button was clicked 
If Cancel Now then Exit Do 

Loop 

Pri nter . EndDoc 
' . . . more code. . . 

— Carlos Cardoso, Salvador, Bahia, BrazU 



VB3,VB4 16/32, VB5 

Level: Intermediate 

EVALUATE POLYNOMIALS FASTER 

The well-known Horner schema lets you calculate polynomial 
expressions efficiently. To calculate A*x''N + B*x'^(N-l) + ... + 
Y*x + Z ( means power ), simply write this expression as 
(...((A*x + B)*x + C)*x + ... +Y)*x + Z. 

— Alex Bootman, Foster City, California 
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VB5 

Level: Intermediate 

Problems wim ActiveX 
Controls pasted From 
Cupboard 

In VB5, the event Is not called when an instance of your 
UserControl is copied into the clipboard and pasted again, cre- 
ating a new one. This afiects user controls that depend on the 
UserControLReslze event to define the control's appearance. 

To check this behavior, start VB5, create a new ActiveX Control 
project, and add a text box in the middle of your UserControl 
area. Add this code to the UserControl Resize Event: 

Private Sub UserControl_Res1ze( ) 

Textl.Move 0. 0. Width. Height 
End Sub 

Close your UserControl and add a Standard EXE project. Cre- 
ate an instance of your new UserControl. You should get a text 
box filling all your UserControl area. Now copy the UserControl 
to the clipbocird cind choose Paste. Note the new instance of 
your control doesn't resize the text box as it should. To work 
around this problem, add this code to the UserControl 
ReadProperties event: 

Sub UserControl_ReadPropert1es_ 

(PropBag As PropertyBag) 

Call UserControl_Resl2e ' 
End Sub 

— ^MBguel Santos, Aveiro Codex, Portugal 



VB4 32, VB5 

Level: Advanced 

Format or Copy Diskettes 
USING mE Windows API 

The Win32 API includes a pair of functions that let you format 
and copy diskettes from your programs: 

Private Declare Function SHFormatDri ve _ 

Lib "shell32" (ByVal hwnd As Long, _ 

ByVal Drive As Long, _ 

ByVal fmtID As Long, 

ByVal options As Long) As Long 
Private Declare Function GetDrlveType _ 

Lib "kerneiaZ" _ 

Alias "GetDrl veTypeA" _ 

{ByVal nDrlve As String) As Long 

Add two command buttons to your form, named 
cmdDiskCopy and cmdFormatDrive, and place this code into 
their Click events: 

Private Sub cmdD1skCopy_Cl 1ck( ) 
' DIskCopyRunDll takes two 
■ parameters- From and To 
Dim Dr1veLetter$, Dr1veNumber&. _ 

DriveTypeS 
Dim RetVali, RetFromMsgji 
DrIveLetter - UCaseCDrlvel. Drive) 
DrIveNumber - (Asc(DrlveLetter) - 65) 



DriveType - GetDrl veType_ 

(DrIveLetter) 
If DriveType - 2 Then 'Floppies, _ 

etc 

RetVal - Shell_ 

("rundll32.exe " i _ 

"diskcopy.dll ," _ 

& "DiskCopyRunDll " & _ 

DriveNumber & "," & _ 

DriveNumber, 1) 
Else ' Just in case 

RetFromMsg - MsgBox_ 

("Only floppies can be " & _ 

"copied", 64, _ 

"DIskCopy Example") 

End If 
End Sub 

Private Sub cmdForinatDri ve_Cl i ck( ) 

Dim Dri veLetterS , Dri veNumberS, _ 

Dri veType& 
Dim RetVal &. RetFromMsg% 

DrIveLetter - UCase( Dri vel . Dri ve) 
DriveNumber - (Asc(DriveLetter) - _ 

65) 

' Change letter to Number: A-0 
DriveType - GetDrl veType_ 

(DrIveLetter) 
If DriveType - 2 Then _ 

■Floppies, etc 

RetVal - SHFormatDr1ve(Me.hwnd, _ 
DriveNumber, 0&, 0&) 

Else 

RetFromMsg - MsgBox_ 

("This drive Is NOT a " & _ 

"removeable drive! " & _ 

"Format this drive?", _ 

276, "SHFormatDri ve Example") 
If RetFromMsg - 6 Then 

■ UnComment to do It... 

•RetVal - SHFormatDri ve_ 
(Me. hwnd, _ 

' DriveNumber. 0&, 0&) 

End If 
End If 
End Sub 

Add one DriveListBox control named Drivel: 

Private Sub Dri vel_Change() 

Dim DriveletterS, DriveNumber*. _ 

Dri veType& 
DrIveLetter - UCase(Drivel. Drive) 
DriveNumber - (Asc(DrlveLetter) - _ 

65) 

DriveType - GetDriveType_ 

(DriveLetter) 
If DriveType <> 2 Then _ 

'Floppies, etc 

cmdDlskCopy. Enabled False 

Else 

cmdDiskCopy. Enabled - True 
End If 
End Sub 

Be careful: this function can even format the hard disk. 

HPlin^m Diep, Etobicoke, Ontario, Canada 
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VB4 16/32, VB5 

Level: Intermediate 

CONSISTENT VERSION NUMBERS 

For consistency's sake, use this routine Wherever your version 
numbers appear in code: 

Public Function GetMyVersionC ) As String 
' Turn version info Into something 
' like "1.02.0001" 
Static strMyVer As String 
If StrMyVer - "" Then 

■ Only call once for performance 
StrMyVer - Trim$(Str$_ 

(App. Major) ) & "." & _ 
FormatSCApp. Minor, "##00") 
& "." Forinat$(App. Revision, _ 
"000") 

End If 

GetMyVersion - strMyVer 
End Function 

— ^Kevin Sandal, Everett, Washington 



VB3,VB4 16/32,VB5 

Level: Beginning 

RIGHT-AUGN CONTROLS ON 
FORMS 

When creating resizable forms, I like to place command buttons 
in either the upp^-right or lower-right comers. For exzunple, on 
data entry forms, 1 place record navigation buttons on the lower- 
left portion of the form along with an Add New Record button, 
Delete Record button, emd a Find Record button. In the lower- 
right corner, I place buttons for print previewing reports and 
closing the form. 

Create this subroutine in a module or genercii declcirations sec- 
tion of a form. With Offset, you can vciry the distance from the right 
edge of the form, so you can right-justify more than one button: 

Sub ButtonRight(X As Control. 

Frm As Form, Offset as Integer) 
X.Left - Frm.ScaleWidth - 
X. Width - Offset 

End Sub 

Place two command buttons on the form. In the Form_Reslze 

event, add this or similar code: 

Private Sub Form_Resi ze( ) 

ButtonRight Commandl, Me, 

ButtonRight Command2, Me, Commandl . Width 
End Sub 

— James D. Kahl, St Louis Park, Minnesota 



VB5 

Level: Intermediate 

HOW Old Are You? 

This function returns the difference between two dates on Years, 
Montlis, and Days: 

Function GetAge(dtDOB As Date, _ 



Optional dtDateTo As Date - 0) _ 
As String 

Ms dtDateto passed ? 

If dtDateTo - Then 
dtDateTo - Date 

End If 

GetAge - Formats (dtDateTo - _ 
dtDOB, "yy - mm - dd") 

End Function 

— Emmanud Stduq^ Donmey, California 



YB3,YB4 16/32, YB5 

Level: Intermediate 

VAL DOESN'T WORK ON 
FORMATTED NUMBERS 

Beware of the ValQ function. It doesn't correctly recognize for- 
matted nimibers. Use ClntQ, CDbl(), and so on instead: 

FormattedString - FormatdZSO. _ 

"General ") 

• - "1.260.00" 
Debug. Print Val (FormattedString) 

' prints 1 ! 
Debug. Print cDbl (FormattedString) 

' prints 1Z50 

— ^Peter Gabor, Tel Aviv, Israel 



VB3,VB416/32,VB5 

Level: Intermediate 

A Smart ID Generator 

1 wrote a unique error-proof number generator that greatly sim- 
plifies the checking of clients' account numbers or other IDs used 
by your application. 1 use it in conjunction with the CheckForVcdid 
functions. For example, the CheckForValid returns True for num- 
ber "203931." The CheckFor Valid returns False for number 
"209331." 

Function CheckForValidCNum As Long) _ 

As Boolean 
' Check for valid number 
Result - Num Mod 13 
If Result Then 

CheckForValid - False 

' if false then the number is wrong 

Else 

CheckForValid - True 
'if true the number is OK 
End If 

End Function 

Function Generate(Num As Long) As Long 
'Generates the successor of a valid 

'number 

If CheckForVal id(Num) Then 
Generate - Num + 13 
'if valid Generate 

Else 

Generate - -1 

' Otherwise return -1 
End If 
End Function 

— Carlos Santos, A^ualva, Portugal 
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YB416/32,YB5 

Level: bitennediate 

KEEP Track of the last Form 

In your MDI application, you might have many child forms and 
need a form to go back to the form that called it. In each child 
form, declare this variable: 

Public ealUngforni As Form 

Before calling a form, set CallingForm to the form that is call- 
ing it so that the form being called can remember which form 
called it. Use this call to call a form: 

ShowForm frmNextForm, Me 

frmNextForm is the form that you're calling, and ShowForm is 
this Global Procedure (declared in a BAS file): 

Sub ShowForm(f rniFormToShow As Form, frmFrom As Form) 
f rmFrom.Hide 
f rmFormToShow.Show 

Set frmFormToShow.Calllngform - frmFrom 
End Sub 

To close a form and go back to the form that called it, use 
this call: 

ExItForm Caningform. Me 

ExitForm is this global procedure: 

Sub Exi tForin( Cal 1 i ngf orm As Form, ThisForm As Form) 

Unload ThisForm 

Cal 1 i ngform.Show 
End Sub 

Use this procedure for all child forms except when you need 
to make the ccill from the main MDI form. In this case, use this 
call: 

ShowChUd frmChild 

firmChild is the MDIChild form you're calling, and ShowChild 
is defined in the MDI form: 

Private Sub ShowChild(frm As Form) 
f rm. Show 

Set frra.Callingform - frmMain 
End Sub 

It's a good idea to call procedures to do these tasks because 
you might want to put extra processing in these procedures. 
Note: you should have error-handing routines as well in the pro- 
cedures. 

—So^o Walter IbiA Allanndi, New Sooth Wales, Australia 



VB4 3^VB5 

Level: Advanced 

resize the dropdown ust 
Area of Combo Boxes 

VB doesn't provide a ListRows property, so if you need to dis- 
play more than eight default items in a combo box drop-down 
list, use this procedure to increase the size of the combo box 

window: 

Option Explicit 

Type POI^TAPI 

X As Long 

y As Long 
End Type 

Type RECT 

Left As Long 

Top As Long 

Right As Long 

Bottom As Long 
End Type 

Declare Function MoveWindow Lib _ 

"user32" (ByVal hwnd As Long, _ 

ByVal X As Long. ByVal y As Long, _ 

ByVal nWidth As Long, 

ByVal nHelght As Long. 

ByVal bRepaint As Long) As Long 
Declare Function GetWi ndowRect Lib _ 

"user32" (ByVal hwnd As Long, 

IpRect As RECT) As Long 
Declare Function ScreenToCl lent Lib _ 

"user32" (ByVal hwnd As Long. _ 

IpPoint As POINTAPI) As Long 

Public Sub Si ze_Combo( rForm As Form, _ 
rCbo As ComboBox) 
Dim pt As POINTAPI 
Dim rec As RECT 
Dim iltemWidth As Integer 
Dim lltemHeight As Integer 
Dim lOldScaleMode As Integer 

"Change the Scale Mode on the form 
'to Pixels 

101dSca1eMode - rForm. ScaleMode 
rForm. Seal eHode - 3 
llteroHldth - rCbo. Width 

'Set the new height of the combo box 
lltemHeight - rForm. ScaleHelght - _ 

rCbo.Top - 5 
rForm. ScaleMode - lOldScaleMode 

'Get the coordinates relative to the 
"screen 

Call GetW1ndowRect(rCbo.hwnd, rec) 
pt.x - rec. Left 
pt.y - rec. Top 



'then the coordinates relative to 
'the form. 

Call ScreenToCl i ent( rForm. hwnd. pt) 
'Resize the combo box 
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Call MoveW1ndow(rCbo.hwnd, pt.x, _ 
pt.y, tltemWIdth, iltemHelght, 1) 

End Sub 

— K^fli Meidemans, Green Bay, Wisconsin 



VB4 32,YB5 

Level: Advanced 

Show Free Memory under 
Win32 

If you want to show your users the available memory on the 
machine, and you're moving from 16 bits to 32 bits, you'll find 
the API function GetFreeSystemResources hcis been dropped. 
You can sUll do it in VB4/32 and VB5, though. You need to de- 
clare the API hinction and this type in a inodule: 

Declare Sub Global MemoryStatus Lib _ 

"kernel 32" (IpBuffer As MEMORYSTATUS) 

Type MEMORYSTATUS 

dwLength As Long 

dwMemoryLoad As Long 

dwTotalPhys As Long 

dwAvai 1 Phys As Long 

dwTotal PageFi 1 e As Long 

dwAvai 1 PageFi le As Long 

dwTotal Vi rtual As Long 

dwAvailVirtual As Long 
End Type 

Fill the dwlength field with the MEMORYSTATUS type size. 
Long variables take four bytes, so the total size is 4*8=32 bytes: 

Dim ms As MEMORYSTATUS 

ms. dwLength - Len(ms) 
Global MemoryStatus ms 
MsgBox "Total physical memory:" & _ 

ms .dwTotal Phys & vbCr _ 

& "Available physical memory:" & _ 

ms.dwAvail Phys & vbCr & _ 

"Memory load:" & ms .dwMemoryLoad 

You could also create a class to encapsulate this. 

— Luis Ferreira, Oeiras, Portugal 



mVB416/32,VB5 

Level: Intermediate 

A REMAINDER YOU CAN'T MiSS 

I often have several programming irons in the fire at one time. 
Jumping back and forth from project to project, I sometimes lose 
track of where I left off within each program. To solve this prob- 
lem, simply type a phrase without the comment character ('): 

Left off here 5-5-97. 12:00. 

The next time you bring up the project, use the "Steut With 
Full Compile" <Ctrl-F5> option. As long as this is the first error 
within the project, the line will be highlighted and my memory 
refreshed. 

— ^Mike Saeger, Spokane, Washington 



VB416/32,VB5 

Level: Intermediate 

Create AN Array on im Fly 
WTTH THE Array Function 

The GetRows method retrieves multiple rows of a Recordset (JET) 
or rdoResultset (RDO) into an array. I often use this feature to trans- 
fer data between an OLE Server and client applications. This method 
uses a Variant type variable as a parameter to store the returned 
data. It is internally a two-dimensioocil cirray emd it is treated like 
one on the client side, but in declaration of the custom method on 
the OLE server, it looks so much tidier as a variant. 

I've tried to pass some additional information such as field 
Ucones, types, and so on. Usual means of transportation such as 
collections and regular arrays are either too slow or destroy the 
symmetry in the declaration. Fortunately, the Array function 
returns a variant containing an array: 

Dim A As Variant 
A - Array(10,2) 

—Dt^KH Sundeiic, EtoUcoke, Ctetario, Canada 



VB416/32,VBS 

Level: Intermediate 

Find the Selected Control in 
AN Array of Option Buttons 

Use this code to find the index of the currently selected control 
in an array of option buttons: 

Function WhichOption(Options As Object) As Integer 
' This function returns the index of the 
' Option Button whose value is true. 

Dim i 

' In case Options is not a valid object 
On Error GoTo WhichOptErr 
' Default to failed 
WhichOption - -1 

' check each OptionButton in the array. Note this 
' fails if indices are not consecutive 
For i - Opti ons . 1 bound To Opti ons . ubound 
If Opti ons (i ) Then 

■ when the one set to true is found, 

' Remember it 

WhichOption - 1 

' and stop looking 

Exit For 
End If 

Next 
WhichOptErr: 

End Function 

Call the function with code like this, assuming that 
iCurOptlndex is an integer and Option 1 is the name of an array 
of OptionButton controls: 

ICurOptlndex - Mh1ch0pt1on(0pt1onl) 

Note the function pariuaieteT is an object. This function vrorka 
only if the pcirauneter is an object or a Vtuiant. 

—Terry Conkilght, Colbert, tVaridngton 
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VB4 16/32, VB5 

Level: Intermediate 

PACKING Check-box values 

INTO A SmCLE INTEGER 

Use this code to find the binary representation of the currently 

checked check boxes: 

Function WhichCheckCctrl As Object) As _ 
Integer 

' This function returns the binary value 

' of an array of controls where the 

' value is 2 raised to the index of each 

' checked control 

' 1e element 0:2*0 returns 1 

'elements and 2 : 2*0 + 2*2 returns 5 

Dim 1 

Dim IHolder 

' in case Ctrl Is not a valid object 
'default to failure return -0 on 
'fall 

On Error BoTo WhichCheckErr 

■ find the binary representation of 

■ an array of check box controls 
For i - ctrl.LBound To ctrl.UBound 

If Ctrl (i ) - 1 Then 

' if it is checked add in its 

' binary value 

iHolder - IHolder Or 2 * 1 
End If 

Next 
WhichCheckErr: 

WhichCheck - IHolder 

End Function 

Call the function with code like this: 

ICurChecked - WhlchCheck(Checkl) 

Checkl is an cirray of check boxes, and iCurChecked is an 
integer. Here's the "dual" routine that sets the state of all the 
check boxes in a control array given an Integer that holds their 
Unary representation: 

Sub SetCheckedCctrl As Object, 

1CurCheck%) 
' This sub sets the binary value of an 
■ array of controls where ICurChecked is 
' 2 raised to the Index of each checked 
' control 

Dim 1 

' in case Ctrl is not a valid object 
On Error GoTo SetCheckErr 

■ use the binary representation to 

' set individual check box controls 
For i - ctrl.LBound To ctrl.UBound 
If iCurCheck And (2 » i) Then 

■ if it is checked add in its 

' binary value 

ctrl(i). Value - 1 

Else 

ctrl(i). Value - 
End If 



Next 
SetCheckErr: 

End Sub 

Call the sub with code like this: 

Call SetChecked(Checkl, IDesired) 

Checkl is an array of checkboxes, and IDesired is a binary 
representation of the desired settings. 

—Terry Conkright, Colbert, Washin^on 



VB416/32,VB5 

Level: Intermediate 

CONDITIONALLY COMPILE 
YOUR CODE 

Most developers know about VB4's Conditional Compilation fear 
tare, where you can declare M^dows APIs for 16-bit and 3M»ft 
operating systems: 

#If W1n#32 then 

"If running in 32-b1t OS 

Decl are SomeApi .... 
#Else 

'If running in 16-bit OS 
Declare SomeApi 
#End IF 

This same feature applies not only to Windows API state- 
ments, but also to your ownn fimctions: 

#If Win32 Then 
Dim lRc& 

lRc& - ReturnSomeNumber( 35000) 

#Else 

Dim lRc% 

lRc% - ReturnSomeNumberOOOOO) 
#End If 

#If Win32 Then 

Private Function ReturnSomeNumber_ 
(lVar&) As Long 
ReturnSomeNumber - 399999 

#Else 

Private Function ReturnSomeNumber_ 
(lVar%) As Integer 
ReturnSomeNumber - 30000 

#End If 

End Function 

— Carl Denton, Marietta, Georgia 



VB4, VB5 

Level: Intermediate 

REDUCE FLICKERING DURING 
FORM LOADING 

When loading a form, reduce the "flicker" and "flash" of the GUI 
by using these Windows API functlcms: 
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'Declarations Section 
#If Win3Z Then 

Declare Function LockWIndowUpdate _ 
Lib "user3Z" _ 

(ByVal hwndLock As Long) As Long 

#Else 

Declare Function LockWIndowUpdate _ 
Lib "User" _ 

(ByVal hwndLock As Integer) _ 
As Integer 

#End If 

Public Sub LoadSomeFormC ) 

' When loading a form lock the 
' window update to stop the 
■ distracting flashing. 

'stop the updating of the GUI 
LockWIndowUpdate frmTest.hWnd 
'Show the form 
f rmTest.Show 

' Load and populate form code here 

'Always .Always Undo the update lock 
LockWIndowUpdate 
End Sub 

— Carl Denton, Marietta, Georgia 



YB4 16/32, VB5 

Level: Advanced 

HIDE THE RECORD SELECTOR IN A 
DATA-BOUND GRID 

To stop the selection bar on a data-bound grid from moving when 
navigating through records in the bound RDC or the rows on the 
grid, use the API Ccdl LockWindowUpdate(gridname.hwnd) be- 
fore navigating the record pointer, and LockWindowUpdate(0) 

after the navigation: 

'Declarations Section 
#If Win32 Then 

Declare Function LockWIndowUpdate _ 
Lib "user32" _ 

(ByVal hwndLock As Long) As Long 

#E1se 

Declare Function LockWIndowUpdate _ 
Lib "User" _ 

(ByVal hwndLock As Integer) _ 
As Integer 

#End If 

Private Sub cmdH1deSelector_C11ck() 

LockWIndowUpdate DBGrldl.hWnd 
End Sub 

Private Sub cmdShowSelectorJlickO 

LockWIndowUpdate 
End Sub 

— Colin Myles, Sb'atford-upon-Avon, Warwickriiire, England 



VB4 16/32 

Level: Intermediate 

USE POPUP Menus in Windows 
WITHOUT Title Bar 

When you set the ControlBox property to False and BorderStyle 
as a fixed window, you can get a window without the title bar. If 
you add a menu to the window for use as a popup menu, the 
title bar appears again. You can place the menu on another form 
to avoid this problem: 

Private Sub Commandl_Cli ck( ) 
Dim frm As New frmHenu 
Load frm 

f rm. PopupMenu frm.mnutest 
'select specific code 
Unload frm 
End Sub 

This behavior has been fixed in VB5. 

— ^Hou Yantang, Xi'an, China 



VB3,VB4 16/32,VB5 

Level: Intermediate 

COMPARE DIFFERENT INSTANCES 
OF THE SAME COMPONENT 

When you get a cool sample of a VB component and you simply 
can't re-create all of its characteristics in your app, don't go nuts. 
Most of the time, you can detect the differences between the 
component in the sample and the component in your app by 
using Windows Notepad or some other editor. Simply open both 
of them and compju-e the properties corresponding to the com- 
ponents you're having problems with. In VB3, both forms must 
be in text format for the editor to see them. This isn't an issue 
with VB4 and VB5, which always save forms as ASCII files. 

— Freud Jone OUveira, Asa Norte, Bnudl 



VB3,VB416/32,VB5 

Level: Intermediate 

GET DATE AND TIME DELIMITERS 

WITHOUT API Functions 

Use these easy Eilgorithms to obtain the current Date, Time, and 
Decimcd delimiters used by Windows without resorting to Lo- 
cale Settings or API calls: 

DateDelimiter - M1d$(Format(Date, 

"General Date"), 3, 1) 
TImeDel imiter - Mi d$( Format(0.5, _ 

"Long Time") ,3,1) 
Decimal Del imi ten - M1d$(Format(l.l, _ 

"General Number"), 2, 1) 

— ^Rob Parsons, Dee Why Beach, Australia 
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VB4 16/32, VB5 

Level: Intermediate 

PREVENT mROm WHEN OSTO? 

GetSetting 

Using Visucil Basic's GetSetting function might cause an error, 
particularly in certain situations when using it under 16-bit op- 
erating systems with INI files. If there's no specific entry in the 
INI file, you might get an error message such as "Invalid proce- 
dure call." You can use this routine, which wraps cin error han- 
dler around the built-in function: 

Public Function GetRegSetting(AppName 
As Variant, Section As Variant, _ 
Key As Variant, Optional Default _ 
As Variant) As Variant 

' the default value is not assumed to be 
' an Object type otherwise you should 
' use Set statement 
Dim tmpValue As Variant 

' set default value 

' if no value was passed, this gives- an 
' empty variant 

If Not IsMissing(Default) Then _ 
tmpValue - Default 

' this Is for trapping possible errors 
On Error Resume Next 

' let's use VB's function 
tmpValue - GetSetti ng(AppName , _ 
Section, Key, tmpValue) 

' after possible errors the call 

' continues here with the preset default 

' value 

SetRegSetting - tmpValue 
End Function 

— Jussi Mattila, Helsinki, Finland 



VB3,VB4 16/32,VB5 

Level: Beginning 

Duplicate Lines of Code 
WITHOUT Syntax Errors 

Many times when I code similar syntcix with slight modifications 
on each line, I like to make a template of the core syntax, quickly 
paste a copy of it however many times 1 need it, and then go 
back and edit each line. Many times, however, the core syntax 
generates an error by the VB editor You can get around this 
problem by commenting the core syntax line out before you paste 
the template. Once you finish editing the templates, simply go 
back and remove the comment delimiter. This is especially easy 
under VB5, which has a Block Uncomment command. For ex- 
ample, say you're reading a recordset to populate a collection: 

While Not mRS.EOF 

OObj'ect.FName - raRSlFNarae 
oObject.LName - mRSILName 



oObject. Phone - mRS! Phone 



cCol lection. Add oObject, oObject. FName 

Wend 

If your object has 20 or 30 properties, it would be quicker to 

code this core sjmtax: 

oObject. - mRS! 

Copy it, paste it 20 or 30 times, go back and type the prop- 
erty and field names in, and remove the comment delimiter. The 
comment delimiter lets you go back and edit each line in what- 
ever order you like and not have to worry about generating a 
syntax error. 

— Trey Moore, San Antonio, Texas 



VB4 32 

Level: Intermediate 

A Shortcut to Load the last 
Project INTO VB 

Most of the time, I wish to stcirt VB and resume the last project I 
was working on, but I don't like to litter my desktop with pro- 
gram icons for works in progress. As a solution install this pro- 
gram in compiled form on your desktop. You can probably adapt 
it to other versions of VB as well as to other programs that store 
this information in an INI file: 

Option Explicit 

Declare Function GetPrivateProfile_ 
String Lib "kernel 32" _ 
Alias "GetPrlvateProflleStrlngA" _ 
(ByVal 1 pAppl IcatlonName As _ 
String, ByVal IpKeyNsme As Any, _ 
ByVal IpDefault As String, _ 
ByVal IpReturnedStrlng As _ 
String, ByVal nSIze As Long,, _ 
ByVal IpFileName As String) _ 
As Long 

Publ ic Sub Main( ) 

Dim temp As String, rVal$, tmp _ 

As Long 
rVal$ - String$(256, 0) 
tmp - GetPri vateProf 1 1 eStr1ng_ 

("Visual Basic", _ 

"vb321 ocati on" , "", rValt, _ 

ByVal Len(rVal$) - 1, 

"c : \w1 ndowsXvb . i ni " ) 
temp - Left$(rVal$, tmp) 
rVal$ - String$(256, 0) 
tmp - GetPri vateProf i 1 eStri ng_ 

("Visual Basic", "RecentFi 1 el" , 
""", rVal$, ByVal Len(rVal$) 
" 1, "c:\windows\vb.ini") 
temp - temp & " & Left$(rVal$, 

tmp) & 
Shell temp, 1 
End 
End Sub 

— ^Andrew l^adner, Debiay Beach, Florida 
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VB4 32, VB5 

Level: Intermediate 

LISTVIEW CONTROLS DON'T 

ACCEPT Numeric Keys 

In a collection object, such as the Listltems collection from the 
LlstView control, or simply a generic VB collection object, you 
can specify a key to uniquely identify the item. Documentation 
states the key can be any String expression. What if the key needs 
to be a numerical string? In a ListView control, you might not set 
a numeric key. Even if you try to set a key equal to Str$(<Numeric 
Variable>), you'll receive an error message. When displaying the 
results of a recordset with a ListView, the key would be the per- 
fect place to hold the primary key for the row, if applicable. Be- 
cause ListView doesn't have cin ItemData property, the key is 
the only place to hold it. The solution is simple: append the string 
"key" to your Numeric Key, and use the Veil function to retrieve 
its vcdue: 

Set 1temX - IvPeople. Listltems. Add_ 

(, . strName) 
■Set the Key 

itemX.Key - StPt(rstPeople!PersonID) & "key" 

Use this code to retrieve the key: 

IKey - Val(lvPeople.ListItems(nIndex).Key)) 

— Steve Danielson, Raleigli, Nortli Carolina 

VB4 16/32, VB5 

Level: Beginning 

SHOWING Characters 

IN LABELS 

If you want to show the character "&" instead of having it work 
as a marker for the access key, set the property "UseMnemonic" 
to False. This property is useful, for instance, when using Label 
controls to show data from a database. You ccm cdso get literal 
"&" characters by using double ampersands in the Caption prop- 
erty to display a sii^e "&." 

— S. Edwin Gnanaraj, Madras, India 

VB3,VB4 16/32, VB5 

Level: Beginning 

Create Temporary Files 

I'm developing a database program that deals with many auxil- 
iary files at the scmie time. Everyone coding database programs 
must create some temporary files to produce an output from 

SQL or a temporary database to manipulate those records effi- 
ciently. I decided to create a FileAux function that returns one 
temporary file name. If I need to create more than one file into 
the same process, I simply store those ncunes into variables di- 
mensioned before: 

Function FileAux(Ext As String) _ 

As String 

Dim i As Long, X As String 
If InStr(Ext, ".") - Then 
Ext - "." + Ext 



End If 

'Look for the previous files 1n the 

■HardDlsk 

1 - 

Do 

X - "Aux" + Format$(1, "0000") _ 
+ Ext 

If FneExists(X) Then 
1-1+1 

Else 

Exit Do 
End If 

Loop 

FileAux - X 

End Function 

This function uses the "FileExists" function: 

Function Fi 1 eExi st (f i 1 ename As String) _ 
As Boolean 

FileExist - Dir$(filename) <> "" 
End Function 

Here's an example of its usage: 

Sub Test( ) 

Dim Filel As String. File2 As _ 

String, File3 As String 
Dim DBl As database. DB2 As DataBase 
Dim FileNum As Integer 
Filel - FileAuxC'MDB") 
Set DBl - CreateDataBaseCFUel) 
FileZ - FileAuxC'MDB") 
Set DB2 - CreateDataBaseCFIleZ) 
Files - FileAuxC'TXT") 
Fi 1 eNum - FreeFi 1 e 
Open Files For OutPut As FileNum 
'Your code 

Close FileNum 
End Sub 

Filel, File2, and FileS should be "AuxOOOl.MDB," 
"Aux0002.MDB," and "Aux0001.TXT," respectively. 

— Luis Orlindo Tedesclii, Piracicaba, Brazil 



VB3,VB416/32,VB5 

Level: Beginning 



MOUSE EVENTS DON'T FiRE IF 
ENABLE IS FALSE 

MouseMove events don't occur when the control's Enabled prop- 
erty is set to False. My method tackles this problem and is use- 
ful when you want to display the Tooltips or Notes on the status 

bar, whether the control is enabled or disabled. 

If the Enabled property is set to False, the control placed 
behind the control's MouseMove event will be fired when you 
move the cursor on the control. Duplicate code you write in the 
Command l_MoseMove in the Label l_MouseMove. Now it works 
even though your Command I button is disabled. Place these 
controls on Fonnl: 

• Commandl(0),Commandl(l) — Commandl is the control cirray. 

• LabellCO), Labell(l) — Labels set behind the commandl. 
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• SSPanell — Acts as status bar. 
Add this code: 

Private Sub Forin_Loacl() 
Dim i As Integer 
For 1 - To 1 

LabelKD.Left - Commandl ( i ) . Left 

Label 1(1 ) .Top - Commandld ) .Top 

Labell(i). Width - CommandKi ) .Width 

Label 1(1 ).Height - _ 
CotnmandKI ) . Hei ght 

Next i 

Commandl ( 0) . enabl ed - false 
Commandl(O) .Tag - "Button to Add" 
Commandld) .Tag - "Button to Modify" 
Commandl(O) .Caption - "&Add" 
Commandld) .Caption - "&Mod1fy" 

End Sub 

Private Sub Label l_MouseMove( Index As _ 
Integer, Button As Integer, Shift _ 
As Integer, X As Single, Y As _ 
Si ngl e) 

SSPanel 1 . Capti on - _ 
Commandl C Index) .Tag 

End Sub 

Private Sub Commandl_MouseMove( Index _ 
As Integer, Button As Integer, _ 
Shift As Integer, X As Single, Y _ 
As Single) 

SSPanel 1 .Caption - _ 
Command! ( Index) .tag 

End Sub 

— EdwiB Qmamipaj, Madras, India 



VB416/32,VB5 

Level; Intermediate 

DISABLE THE DEFAULT POPUP 
MENU ON Text BOXES 

Some controls in VB4 and VB5, such as the TextBox control, have 
a default context menu that appears when you right-click on the 
control. If you want to pop up your own context menu, no prop- 
erty or method of those controls exists to disable the default 
behavior. 

To solve this problem, place code in the Mouse_Down event, 
which disables the teirget control. Pop up your context menu, 
and then re-enable the control. Here's the method in 
PopContextMenu: 

Sub BopContextMenuCargoControl As 
Control , argoMenu As Control ) 
argoControl . Enabl ed - False 
PopupMenu argoMenu 
argoControl . Enabl ed - True 

End Sub 

Call it in the MouseDown event of a text box named Textl for 
a menu called MyMenu: 

Prlvttfe Sub Textl„MouseDown(Button As 
Integer, Shift As Integer, X As _ 



Single, Y As Single) 

If Button - vbRi ghtButton Then 

PopContextMenu Textl, MyMenu 
End If 

End Sub 

— William Jordan, Acworth, Georgia 



VB3,VB4 16/32,VB5 

Level: Intermediate 

A Taskbar-Compliant Version 

OF CENTERFORM 

To center a form, you only need one API call, no UDTs, and two 
constants. This solution is based on the fact that 
GetSystemMetrics reflects real estate taken up by the taskbar 
and the Mterosoft Office shortcut bar: 

Public Const SM_CXFULLSCREEN - 16 
Public Const SM_CYFULLSCREEN - 17 

#If Win32 then 

Declare Function GetSystemMetrics _ 
Lib "user3Z" _ 

(ByVal nindex As Long) As Long 

#Else 

Declare Function GetSystemMetrics _ 
Lib "User" _ 

(ByVal nindex As Integer) _ 
As Integer 

#End If 

Public Sub CenterForm(f rm As Form) 

frm.Left - Screen. TwIpsPerPlxelX * _ 
GetSystemMetri cs_ 

(SMJXFULLSCREEN) / 2 _ 
- frm. Width / 2 
frm.Top - Screen. TwIpsPerPixelY * _ 
GetSystemMetri cs„ 
(SM_CYFULLSCREEN) / 2 _ 
- frm. Height / 2 

End Sub 

— ^Dave Michel, Minneapolis, Minnesota 



VB3,VB4 16/32/VB5 

Level: Beginning 

A STRING Cleaner 

At times it's useful to have a function that cleans a string of un- 
wanted characters. This small function accepts the string you 
want to clean cmd the chciracters you want to get rid of: 

Function Stri ngCl eanerCs As String, _ 
Search As String) As String 

Dim i As Integer, res As String 

res - s 

Do While InStr(res, Search) 
i - InStrCres, Search) 
res - Lef teres, 1 - 1) & _ 
MldCres, 1 + 1) 

Loop 

StrlngCleaner - res 
End Function 

>^Roop Datta, Palattne, IQinois 
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VB4 16/32, VB5 

Level: Beginning 

TEST OBJECTS USING TYPENAME 

You can determine the class of an object using the TypeName 
function instead of the If TypeOf statement. Use the TjrpeOf state- 
ment to detennine the type of object: 

If TypeOf myObject is my Type then 

... do something 
End If 

You can do the same with this code: 

if TypeName (myObject) - "my Type" Then 

... .do something .... 
End If 

The advcintage is that you don't have to include in your project 
all the classes (or OCXs) that you manage. This is a good ap- 
proach when writing general-purpose routines, and moreover, 
you can use TypeName in compound tests and Select Case 
blocks. 

— Andrea Adami, La^agnano, Italy 



VB416/32,VB5 

Level: Intermediate 

Append A STRING to a Text Box 

Use this code to cause a TextBox control to automaticcdly scroll 
down as you concatenate new text: 

'Select the end of the text 
MyTextBox.SelStart - Len(MyTextBox.Text) 
'Put the new text there 
MyTextBox . Sel Text - NewTextl 

— William D. Marquis, Apple Va^i^^ California 



VB3,VB416/32,VB5 

Level: Beginning 

DOUBLE Check val Arguments 

When using the Val function, VB has a quirk that causes a type 
mismatch error. For example, ValC"25%") correctly returns 25, 
whereas Val("2.5%") misinterprets the string and returns a type 
mismatch error. This happens only when there is a decimal point 
and a "%"or "&" character in the string. To work around this, 
remove these characters before pcissing the string to the Vcd func- 
tion. 

— Rank Barbate and Krystyna Zyzdryn, 
North Palm Beach, Florida 



YB4 32,VB5 

Level: Advanced 

iNTERmr Shortcuts 

VB5 App Wizard can create a Web Browser form, but it works 
only with Microsoft Internet Explorer and you must distribute 
SHDOCVW.DLL. If you use Windows' ShellExecute function to 
execute an Internet Shortcut file, Windows executes the default 
browser and goes to the specified URL. This method works with 
both the Microsoft and Netscape browsers if they're properly 
registered in the Windows Registry, and you don't have to dis- 
tribute any DLL: 

Private Declare Function ShellExecute _ 

Lib "shen32.dll" Alias _ 

"Shel 1 ExecuteA" _ 

(ByVal hwnd As Long, _ 

ByVal IpOperation As String, _ 

ByVal IpFile As String, 

ByVal IpParameters As String. _ 

ByVal IpDirectory As String, _ 

ByVal nShowCmd As Long) As Long 
Private Const SW_SHOWNORMAL - 1 

' frm : ShellExecute needs a Window 

' handle. You can use the handle of your 

' main window 

' sUrl : This is the name and path of a 

' .url file (Internet shortcut file) 

' that points to your page, for example 

' c:\MyWebPage.url Use Internet Explorer 

' to create the shortcut file 

Public Sub GoToMyWebPageCf rm as Form, _ 
sUrl as string) 
Dim IRet as Long 
IRet - Shel 1 ExecuteCfrm. hwnd, _ 

"open". sUrl , vbNull, _ 

VbNull String, SW_SHOWNORMAL) 
If IRet <- 32 Then 
' there was an error. Some of the 
'errors that can be returned by 
' Shell Execute are: 

■ ERROR_FILE_N0T_F0UND - 2& 

■ ERROR_PATH_NOT_FOUND - 3& 

■ ERROR_BAD_F0RMAT - 11& 

■ SE_£RR_NOASSOC - 31 

■ SE_ERRJOM - 8 

Else 

' your browser is running 1 
End If 
End Sub 

— Jo«£ Rodriguez Alvira, San Jiuai, Puoto Rtco 
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VB3,YB416/32,VB5 

Level: Intermediate 

A FORM-LEVEL .iMmCamGEB 
PROPERTY 

Ever wished you could use tiie Save parameter outside of a Vali- 
date event? Have you noticed that if a bound control is changed 
and you set DataChanged back to False, Save is still True on 
Validate? Solve both problems by adding a public function: 

Public Function FormChangedCfrm As Form) 
On Error Resume Next 
Dim i As Integer, dChanged As _ 

Boolean 
FormChanged - False 
For 1 - To frm. Controls. Count - 1 

'for controls with no DataChanged 

'property 

dChanged - frm.Controlsd )_ 

. DataChanged 
If Err <> Then 
'almost certainly Is 

' OjectDoesntSupportThls Property OrMethod 

Err - 

Else 

If dChanged - True Then 

FormChanged - True 

Exit Function 
End If 
End If 

Next 
End Function 

Use this function any time by simply writing If 
FormChanged (Me) Then, or however you wish, and you can use 
it in the Validate routine with Save = FormChcmged(Me). 

— ^Mattbew Brown, Cambridge, Illinois 



VB432,VB5 

Level: Intermediate 

Open Help File Contents 

Most programmers want their applications to look like commer- 
cial software, so they want to add their own Help files. How do 
you open fit© Contents of a Windows Help file in your applica- 
tion? Simply paste in this code, which uses Win32 API function: 

' -- Declares 

Const HELP_CONTENTS - &H3& 
' Display contents 

Declare Function WinHelp Lib "useraz" Alias "WInHelpA" 
(ByVal hwnd As Long, _ 
ByVal IpHelpFile As String, 
ByVal wCommand As Long, _ 
ByVal dwData As Long) As Long 

' -- Code 

Sub OpenHelpFile(HelpFileNatne As String) 
' HelpFileName is the path of the 
' he] p fi 1 e. 

WinHelp hwnd, HelpFileName. _ 
HELP_CONTENTS. 

End Sub 

— Huang Xiongbai, Shanghai, China 



YB3,VB4 16/32, ¥B5 

Level: Beginning 

Enforce DESIGN-TIME Size 
FOR MDI Forms 

Because MDI forms don't have a border property, the user can 
drag the borders and distort the size of the MDI form. If the user 
tries to resize the form, I want the form to revert to its design- 
time size. To accomplish this, use this procedure for the 
MDIForm_Resize(3 event: 

Private Sub HDIForm_Res1z«() 

' Stop resizing of MDI forms by 

' dragging borders and reposition 

' the MDI form. Only do this if the 

' MDI form is displayed as a Normal Window 

If WindowState - Then 

' Your MDI form's design height 

Me. Height - 6900 

' Your MDI form's design width 

Me. Width - 10128 

' Your MDI form's design left 

' position 

Me. Left - 1020 

' Your MDI form's design top 

' position 

Me. Top - 1176 

' You may also use a Move method 
' to change all properties in one 
' single command 
End If 
End Sub 

— Joseph J. Janus, New CasUe, Pennsylvania 



VB3,YB4 16/32, VB5 

Level: Beginning 

FAST DATABASE LOOKUPS 

Visual Basic doesn't have a procedure like the DLookUp func- 
tion that Access has. You can use this procedure in VB to re- 
ceive the Name of an object by ID: 

Public Function MyDLookUpCCol umn As _ 

String, TableName As String, _ 

Condition As String) As Variant 
Dim Rec As Recordset 
On Error GoTo MyDl ookUp_Err 

' gCurBase is a global variable that 
' holds the database that is currently 
' opened 

Set Rec - gCurBase. OpenRecordset_ 

("Select * From " & TableName) 
RecFindFirst Condition 
If Not Rec.NoMatch Then 

' return the requested field if 

' matching 

MyDLookUp - RecCColumn) 
Exit Function 
End If 

' return -1 if there is no match, or any 

' other error 
MyDlookUp_Err: 
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MyDLookUp - -1 
End Function 

— ^Valery Belfor, Jerusalem, Israel 



VB3,VB4 16/32, VB5 

Levels Intermediate 

Cheap Focus Tracking 

The Lost_Focus and Got_Focus events are the most-used events 
for implementing validation cuid text highlighting. Wouldn't it 
be nice to respond instemtly to these events and to do it from a 
single routine for all controls without the aid of a subclassing 
control? 

Here's the cinswer. Place a timer control on your form, set its 
Interval property to 100 and set Enabled = True. Ncmie the con- 
trol tmrFocusTi'acldng. Code its Timer event like this: 

Private Sub tmrFocusTracking_Tiiner() 
Dim strControl Name As String 
Dim strActive As String 
StrControl Name - _ 

Me.ActiveControl .Name 

Do 

StrActive - Me.ActiveControl .Name 
If StrControl Name <> strActive _ 
Then 

Print StrControl Name & _ 
" - Lost Focus", _ 
StrActive & " - Got Focus" 
StrControl Name - strActive 
End If 
DoEvents 

Loop 
End Sub 

To implement universal highlighting, replace the Print state- 
ment with this code: 

Me. Control sCstrActi ve) . Sel start - 
Me. Control s(strAct1 ve) . Sel Length - _ 
Len (Me. Controls (strActive) ) 

To implement validation, replace the Print statement with a ccdl 
to a validation routine. Use strActive in a Select Case structure. At 
the moment where the Print statement would occur, strActive is 
equal to the control that just got focus, and strControINeime holds 
the name of the control that just lost focus. 

Don't place this routine in anything but a timer; otherwise, 
your program hangs once the routine is called. Even the timer 
here never makes it to a second interval. For a given control, 
don't write validation code both in the Got_Focus/Lost_Focus 
events, and in code called by this routine. Doing so might cause 
unpredictable results. 

— John S. Fries, Santa Maria, California 



VB3,VB416/32,VBS 

Level: Beginning 

A FORM That won't Close 

If you set a form's ControlBox property to False, the Minimize 
and Maximize buttons also become invisible. Suppose you want 
to provide functionality to the user to maximize and minimize 
the form, but not to close the form using the control box. Simply 
add this code to the Query_Unload event: 

' uncomment next line in VBS 
■ Const vbFormControl Menu - 
Private Sub Form_QueryUnl oad( Cancel As _ 
Integer, UnloadMode As Integer) 

If UnloadMode - vbFQrmControl_ 
Menu Then 
Cancel - True 
End If 

End Sub 

— A.G.K. Kishore, New Delhi, India 



VB3,VB416/32,VB5 

Level: Beginning 

Change A Property in a Group 
OF Controls 

You can easily make a group of controls visible or invisible. At 
design time, select all controls you want to make visible or in- 
visible during the execution. Press F4, and assign the Tag prop- 
erty a name for the group, such as "Groupl." When you wish to 
make that group visible, run this code: 

For ind - To Formname. Controls. Count _ 

- 1 

If Formname. Control sdnd) .Tag - _ 
"Groupl" Then 

Formname. Controls (ind) .Visible _ 
- True 

End If 

Next 

— Rogerio Zambon, Porto Alegre, Brazil 



VB3,VB4 16/32, VB5 

Level: Intermediate 

round and format the 
Easy Way 

Do you sometimes need to format rounded numbers to a spe- 
cific number of digits? You can accomplish this in one step: 

n - 12.345 
Format(n, "0.00\0") 
'returns "12.350" 
Format(r. "0.\0\0") 
' returns "12.00" 

Format(0.55. "#.0\0") 'returns ".60" 

— ^Peter Gabor, Tel Aviv, Israel 
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VB416/32,VB5 

Level: Intermediate 

Quick Jvmps to the 
declaration section 

I often want to get to the Genersil code section of a form quicldy, 
eitlier to liaclc module-level variables or to grab the procedure 
pull-down to find that function whose ncime I forgot. Double-click- 
ing on the form gives you Form procedures. Clicking on "View 
Code" from the menu or project box does the same unless no 
form is open. 

To solve this, put an oval Shape control with an obnoxious 
color on all your forms and make it invisible. Of course, nothing 
is invisible in design mode, and because shapes have no event 
procedures, double-clicking on it takes you to the General/Dec- 
larations page every time. 

Note that under VB4 and VB5, you might enforce Full Module 
View, in which case you can jump to the declaration section sim- 
ply by pressiBg Ctrl-Home. 

— Randal J. King, Downers Grove, Illinois 



VB3,VB416/32,VB5 

Level: Intermediate 

BE A WARE, IT'S NOT C! 

VB developers that progreim with C language might be confused 
by a feature in the language. Consider this code: 

Dim X As Integer 
Dim y As Integer 
Dim z As Integer 

X - 10 
y - 20 
z - 

'Assume function max returns the maximum 
'of the two 

if (z - max(x, y)) > then 
Msgbox CStr(z) 

Else 

Msgbox "How Come?" 
End if 

In the code, you would expect the message box to display 20, 
as it would do in C. VB, however, compares "z" with the RHS 
(right-hand side) even before the assignment, irrespective of the 
brackets. Be careful. 

— Baskar S. Ganapathy, Walnut Creek, California 



VB416/32,VB5 

Level; Advanced 

PORTING VB-SPECIFIC OBJECTS 

TO Access 8.0 

Code portability is extremely important, especially now that VBA 
is available in so many products. Some problems might occur if 
you want to use VB4 or VB5 code in Access 8 without making 
ciny changes. If the code you are porting references some VB- 
specific object, object method, or property. Access complains 



when you compile the imported code. For instance, the "App" 
object exists in VB but not in Access. Therefore, this statement 
won't compile under Access; 

Msgbox App, Title 

To get around this problem, create a class in Access 8 to "re- 
place" the VB4 object, method, or property not available in Ac- 
cess. In this case, create a clsVBShadow class in Acc^s: 

Option Compare Database 
Option Explicit 

Private strTitle As String 
Private strEXEName As String 
Private strMin As, String 

Private Sub CI ass_In1tial ize( ) 

StrTitle - "Microsoft Access" 

' Or whatever you want to return. 

StrEXEName - "?" 

StrMin - "?" 
End Sub 

Public Property Get TitleO As String 

Title - StrTitle 
End Property 

Public Property Get EXENameO As String 

EXEName - strEXEName 
End Property 

' complete with more properties... 

In any module in your Access 8 application, declare this glo- 
bal object: 

Public App As New clsVBShadow 

At this point, any code you import from VB4 that accesses 
the App object still works unchanged, and you can replace each 
method or property of that object with what you want. 

— ^Warren Roscoe, Cape Town, South Africa 



VB3,VB4 16/32, VB5 

Level: Intermediate 

String Surprise 

I was developing a CGI application that read a database cind 
pieced together the fields into a string for representation as an 
HTML form. The surprise came when I found how slow it was — 
20 seconds was unacceptable for the t£isk. I first suspected the 
database access and thought there was no way to improve it; 
however, upon investigating further, it turned out to be the loop 
that concatenated the fields into the string. A simple change took 
the run time of the routine down to about one second. In this 
simplified example, instead of writing this code; 

For i - 1 To 10000 

strHTML - strHTML & strfield & vbTab 
Next 1 

Break it down Into something like this: 

For 1 - 1 To 100 
strTemp - "" 
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For j - 1 to 100 

strTemp - strTeitip & strField _ 
& vbTab 

Next j 

strHTML - strHTML & strTemp 
Next 1 

Admittedly, the number of concatenations is liigh, but the 
difference is astounding. In the 16-bit world, the second excimple 
is about 20 times faster than the first on my machine. However, 
in VB 32-bit, my Pentium 133 with 32 MB of RAM takes 48 sec- 
onds for the first case and less than one second for the second 
case. I hesitate to suggest a precise speed improvement because 
of the complexity of Windows 95 and different hardware, but if 
you must concatenate large numbers of strings, this could be- 
come a make-it-or-break-it problem. 

— Nick Snowdon, Delta, British Columbia, Canada 



VB3,VB416/32,VB5 

Level: Intermediate 

USE Backquotes Instead of 
Apostrophes 

Often when using Transact^QL, 1 want to capture comments from 
a user in a text box and send them to the database. However, if 
the user types an apostrophe in the text box, a runtime error is 
generated when the update is processed because SQL Server 
thinks the apostrophe is being used to mark the end of a string. 

To get around this problem, intercept the user's keystrokes 
in the KeyPress event and exchange the apostrophe with an "up- 
side-dovWfi" quote mark (ASCn(145)) like this: 

Private Sub Textl_Keypress(KeyAsc1i as Integer) 

If KeyAsdi - 39 Then 
KeyAsfSfl <■ 146 

End If 
End Sub 

Alternatively, you might decide to substitute all occurrences 
of single quotes into backquotes immediately before sending 
them to SQL Server. 

— Mike McMillan, North Little Rock, Arkansas 



VB4 16/32, VB5 

Level: Intermediate 

Spread Upgrades Over the 

NETWORK 

1 design VB applications for approximately 300 employees in a 
networked environment. It's difficult to keep those PCs up to 
date with the most current version of an app, so I use VB's auto- 
incrementing version-numbering feature to have the app test if 
a newer version is available when it launches. 

Set the app to auto-increment when it's compiled. Store the 
setup/upgrade files on a networked drive (be sure to use the 
UNC path rather than drive letters), and include an 
uncompressed INl file that lists the newest version available. 
Then embed this code into the Form_Load event: 

Open In1F1le$ Fop Input As #1 I 
Line Input #1, sUpgradeVers1on$ 



Close #1 

If sUpgradeVersi on > ( Format (App . Ma jor. "00") & "." &_ 
Format(App. Minor, "00") 8. "." & _ 
Format(App . Revi si or , "0000")) Then 

' shell out to networked upgrade 

' installation 

End 
End If 

If the version in the networked INI file is greater than that 
stored within the running app, the app launches the upgrade 
program off the network and exits, so all files can be upgraded. 
This works especially well when you're in the early sts^es of a 
rollout and need to distribute multiple small incrementid patches 
over a number of days. 

— Rodney Samodral, Indianapolis, Indiana 



VB4 16/32,VB5 

Level: Intermediate 

A WORKAROUND FOR BOUND 
IMAGELIST CONTROLS 

When an ime^e list is referenced by another object such as a 
toolbau-, you can only add images to the image list. VB doesn't 
allow deletes or chcinges to the size of the images in the image 
list while the reference exists. Typically, the solution is to re- 
move the references, edit the image list, and then reset the ref- 
erences again. However, this can become cumbersome when you 
might have 10 to 15 toolbar buttons referencing the image list. 

To avoid the reference problem, simply select the object refer- 
encing the image list and "cut" it from your form. Then you can 
freely edit the image list because VB doesn't think it's referenced 
by any control. Once you finish editing the image list, simply 
"paste" the other control back on your form. All references will 
be restored, including the reference to the chcinged imeige list. 

— Steve Dulzer, Madlslon Heights, Michigan 



VB3,YB4 16/32, VB5 

Level: Intermediate 

Close Your Windows the 
Windows 95 Way 

Place this code in the declaration section of a UMdulfi: 

Public Sub Wi n95Shri vel (xForm As Form) 

' Sets the form's window status to 

' minimized 

xForm.WindowState - 1 
End Sub 

Call it from the Unload procedure within a form: 

Private Sub Form_Unl oadCCancel As Integer) 

Win95Shrivel Me 
End Sub 

Each time a form is unloaded, the form appears to fade to the 
task bar and then disappears. This tip also works on a Windows 
3.1x machine as well. 

— ^Andy Mclnturff, Erwin, Tennessee 
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VB3/VB416/32,VB5 

Level: Intermediate 

PREPARE A STRING FOR OUTPUT 

If you want to show the contents of a string variable or a data- 
base field using a Label control, you should be aware that any 
embedded "&" character in the string is interpreted as a place- 
holder for the hotkey associated to the label. You can use this 
routine to avoid this unpleassint behavior by simply doubling 
each ampersand character: 

Function AddAmpersand (InText As String) 
Dim NewText As String, i As Intsger 
Do 

i - InStr( InText. "&") 
If i > Then 

NewText = NewText + _ 

Left$( InText, i ) + "&" 

End If 

InText - Right$(InText, 
Len( InText) - i) 
Loop Until i - 
AddAmpersand - NewText + InText 

End Function 

Here's an example of its usage: 

Label 1 .caption - AddAmpersandCInputText) 

With VB4 and VB5, it's simpler to resort to the UseMnemonic 
property: 

Label 1 .UseMnemoni c - False 
Label 1 .caption - InputText 

— S.T. Wright, Albuquerque, New Mexico 



VB4 16/32, VB5 

Level: Intermediate 

Protect Your WAV Files 

If you design programs that use sound files, use the Resource 
Compiler on the Visual Basic CD-ROM to compile your sounds 
into a RES file. This way, no one can take the WAV files included 
with your program. For more information on how to use Resource 
Files, consult the Resource.Txt file in the Resource subdirectory 
in the Tools directory on the CD-ROM. 

— Joshua Stein, Wauconda, Illinois 



VB3,VB416/32,VB5 

Level: Intermediate 

USING THE DIR$ FUNCTION 

To quickly and easily determine the existence of a directory iJi 
Visual Basic, create this function: 

Function IsVal idPath(strPath As _ 

String) As Boolean 

IsValidPath - DirCstrPath. _ 
vbDi rectory) <> "" 
End Function 

You Ccin also modify the function cind determine whether a 
file exists in VB. Simply change the "vbDirectory" constant to 
"vbNormal." 

Learning and exploring all the Dir functions leads to many 

benefits: 

• Navigate through all contents of a directory tree without us- 
ing slow form controls or tricky APIs. 

• Search for a file using wild cards (as in DOS). 

• Detect all file attributes. 

• Support long file njunes C32-bit only). 

— John Mas, Santa Maria, California 



VB3,VB416/32,VB5 

Level: Beginning 

BOOLEAN-BASED TOGGIMS CAN 

BE MORE Efficient 

Many conditional statements constructed with If.. .Then could 
more efficiently use Boolean-based toggles. For example, instead 
of using this code for menu checking: 

If mnuEdi tModeStatus . Checked - True _ 

Then mnuEditModeStatus. Checked - False 

Else 

mnuEdi tModeStatus . Checked - True 
End If 

You can easily replace it with this code; 

mnueditModeStatus. Checked - _ 

Not mnuEditModeStatus. Checked 

You can shorten many similar constructs by using logic. In 
fact, the "IF condition = true THEN..." is the same as "IF condi- 
tion THEN... ." Use a Boolean function or solution to replace many 
user variables, freeing up resources. Many times, the ability to 
check True/False situations exists within the scope of the VB 
environment, eliminating the need to generate lines of condi- 
tional statements. Try it on your If/Then and Select code — ^you 
might be pleasantly surprised at the resulting code reduction. 

— ^RandaU Amolcl, Coppell, Texas 
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David McCarter 
ISBN 1-890422-00-2. S24.95. 
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& Tricks electronic newsletter. 
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step tutorial moves you from the 
basics to more advanced and 
powerful scripting techniques. 
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Second Edition 

Hoger Jennings 
ISBN 0-672-30652-2, $59.99,986 
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400 pages. Disk. Lays out a 
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